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MAINTENANCE  RESOURCE  PREDICTION  MODEL 
SUMMARY  SYSTEM  (MRPMSS)  PROGRAMMER'S  MANUAL 


1  INTRODUCTION 


The  primary  purpose  of  this  manual  is  to  provide  the  system 
programmers  with  a  comprehensive  description  of  each  procedure  required 
to  learn,  operate,  and  maintain  the  personal  computer  MRPM  summary 
system.  Chapter  2  describes  the  most  efficient  method  for  learning  the 
functions  and  organization  of  the  MRPMSS  system.  Chapter  3  defines  the 
program  flow  from  subroutine  to  subroutine.  Chapter  4  contains  the 
description  of  all  standard  or  common  subroutines  that  must  be  used  by 
all  programmers  when  writing  new  code  or  modifying  existing  coae . 
Chapter  5  describes  all  standard  common  blocks  that  must  be  used  when 
programming.  Chapter  6  contains  a  list  of  standard  programming  packages 
used  in  the  MRPMSS  system.  Chapter  7  describes  the  procedures  to  be 
followed  during  system  maintenance  and  operation.  Chapter  8  describes 
the  overall  management  procedures  required  to  operate  the  system. 
Chapter  9  describes  re::ources  required  to  support  the  MRPMSS  system. 
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2 


LEARNING  THE  FUNCTIONS 


The  first  and  most  important  step  is  to  train  the  maintainer  as  a 
functional  user  of  the  system.  Give  the  new  person  a  user's  manual  and 
access  to  the  MRPMSS  system  on  a  personal  computer  (PC) .  Have  the  person 
read  the  manual,  learn  the  system,  and  write  down  all  questions.  Do  not 
give  the  person  any  verbal  description  of  the  system.  All  information 
should  be  contained  in  the  user's  manual. 

Revise  the  user's  manual  as  needed  using  the  programmer's  questions. 
It  the  new  person  had  the  question,  it  is  probable  others  will  also. 
This  method  constantly  improves  both  user  and  system  documentation. 

The  user's  m.anual  is  a  self-teach  document.  The  learning  process 
takes  approximately  1  week  and  should  be  very  smooth  and  efficient.  Once 
the  maintainer  knows  the  functions,  this  programmer's  manual  can  be  used. 
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3  PROGRAM  FLOW 


This  chapter  presents  the  flow  of  the  program  by  functional  use. 
Table  1  contains  the  functional  use  as  displayed  on  the  screen,  the 
program  named,  and  the  files  as  tables  accessed.  Table  2  contains  the 
same  information  ordered  by  program  name.  Table  3  contains  the 
information  ordered  by  file  name. 


Table  1 
MRPM  Files 

Ordered  as  Shown  on  the  Screen 


Function 

Program 

Data  Files 

INSTMENU  MENU 

INSTMENU 

INSTMEMU.EXE’ 

INSTMENU. TBl 

MAIN  MENU 

MRPM 

MRPMSSS.EXE 

MRPMTEMP . DAT 

MRPMTEMP . BAT 

BASIC  INFORMATION 

GENERAL  INFORMATION 

Organization  Chart 

ORGCHRT . EXE 

ORGFGC . XDB 

RMF  Factors 

RMF-FACT  EXE 

RMF-FACT . XDB 

INSTINFO  DAT 

F4C  Conversion  Codes 

F4CAMS.EXE 

AMSF4C.XDB 

Report  Periods 

RP-DATES .EXE 

INSTINFO.DAT 

ORGFGC . XDB 

Unit  Cost  Factors 

UNC-FACT . EXE 

UNC-FACT . XDB 

UNCDSC.XDB 

U.S.  Factor  Description  Editor 

COST-DES.EXE 

UNCDSC . XDB 

AMS  Description  Editor 

AMS-EDIT.EXE 

AMSDSC.XDB 

Area  Identification 

AREA_TAB . EXE 

AREA  TAB. XDB 

INSTINFO.DAT 

SUB-TAB . XDB 

Subinstallation  Identification. 

SUB-TAB. EXE 

INSTINFO.DAT 

SUB-TAB .  XDB 

The  listing  of  programs  is  in  menu  order.  For  each  MRPM  function  there  is  a 
corresponding  program  file  name  and  d^ta  files  accessed. 
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Table  1  (Cont'd) 


Function 


Program  Data  Files 


Lan  unit  cost  graph 


CHART . EXE 


FACILITY  RESOURCE  DATA 


F4C  Resource  Description  Table  EDF4CS.EXE 


Trade  and  Costs  .  TRD-EDIT.EXE 

Total/Partial  Summary  Tasks  .  DES-EDT3.EXE 


F4C  Description  Editor  .  F4C-EDIT.EXE 


DES-BTSM.XDB 

DES-TASK.XDB 

DES-TRWD .XDB 

F4CDESC.XDB 

F4C-YEAR.XDB 

INSTINFO.DAT 

INSTINFO.DAT 

TRDCOSTS.DAT 

BTSMtdpd.XDB 

BT-PASS .DAT 

CLASLST.DAT 

DES-BTSM.XDB 

INSTINFO.DAT 

TRDCOSTS.DAT 

TRWDti — .XDB 

VALLIST.DAT 

F4CDESC.XDB 


FACILITY  INFORMATION 


RESOURCE  CALCULATION 


DISPLAY  RESOURCES 


Display  Facility  Totals 


FACASS.EXE 


(MENUSS 

sub) 

(FIOPEN 

sub) 

(OCECAL 

sub) 

(SQFCAL 

sub) 

(STDCAL 

sub) 

(UNCCAS 

sub) 

RSMTDPS 

.EXE 

(RSMTREPT.EXE) 


AMSF4C.XDB 

BTSMtdpd.XDB 

CTODsecq. XDB 

F4C-YEAR.XDB 

FACILITY. XDB 

INSTINFO.DAT 

RMF-FACT . XDB 

RSMTTOTL.XDB 

RSMYsecq.XDB 

SCMlDid.DAT 

TASKtigi .XDB 

n^p  ^  rp 

TRDCOSTS.DAT 
TREEsecq  DAT 
TJNC-FACT  .  XDB 


FACILITY. XDB 
INST INFO  DAT 
RSMTTOTL.XDB 
SYLCHART  ASC 


GENEELAL  INFORMATION 


FA- XEDIS.EXE  AMSF4C.XDP 
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Table  1  (Cont'd) 


Function 


Program  Data  Files 


AREA_TAB.XDB 
FACILITY. XDB 
FFPROF .XDB 
F4CDESC.XDB 
INSTINFO.DAT 
SCMDEF.XDB 
SUB-TAB. XDB 
WP-DESC  DAT 

FACILITY  REPORTS 


F4C/AMS  Organizational  Summary 

AMSF4CRP.EXE 

AMSF4C.XDB 
FACILITY. XDB 
INSTINFO.DAT 
RSM'i’TOTL  .  XDB 

Facility  Totals  Report 

RSMTREPS.EXE 

F.ACILITY  .XDB 
INSTINFO  DAT 
RSMTTOTL.XDB 

Unconstrained  Reqrmnts  Reports 

URR  Editor 

URREDIT.EXE 

AMSDSC .XDB 
INSTINFO.DAT 
URR. XDB 
ZZZZZZZZ .URR 

Escalation  Factor  Editor 

URRAPR.EXE 

INSTINFO.DAT 
UNC-FACT . XDB 

Produce  Reports 

URRCOP . EXE 

AMSDSC. XDB 
AMSF4C .XDB 
FACILITY. XDB 
INSTINFO.DAT 
RSMTTOTL.XDB 
URR . XDB 
URRAPR . XDB 

View  and  Print  Report  Files 

VIEWRP.EXE 

ZZZZZZZZ. FTR 
ZZZZZZZZ .OSR 
ZZZZZZZZ .UCR 
ZZZZZZZZ .URA 
ZZZZZZZZ .URC 

.MODEL  FACILITY 

Standard 

DATFAC . EXE 

FACILITY. XDB 

National  Guard 

NGDFAC . EXE 

FACILITY. XDB 

Non  .Array  Organizations 

NOAFAC . EXE 

FACILITY. XDB 

V  Corps 

VCORPS.EXE 

FACILITY. XDB 

DELETE  RESOURCE  TOTAL  FILE 

COMBINE  FACILITY  TOTALS  FILES 

LAN  DISPLAY  GRAPH 

DRESTOS.EXE 
COM-F.AC  .  EXE 

CHART.EXE 

RSMTTOTL.XDB 
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Tabl«  2 


MRPM  Files 

Ordered  by  Program  Naiae 


Function 


Prograun 


Data  Files 


AMS  Description  Editor 

AMS -ED IT . EXE’ 

AMSDSC . XDB 

F4C/A.MS  Organizational  Summary 

AMSF4CRP.EXE 

AMSF4C . XDB 
FACILITY . XC3 
INSTINFO . DAT 
RSMTTOTL . XDB 

Area  Identification 

AREA_TAB .EXE 

AREA_TAB . XDB 

LAN  Unit  Cost /Display  Graph 

CHART . EXE 

COMBINE  FACILITY  TOTALS  FILES 

COM-FAC . EXE 

U.3.  Factor  Description  Editor 

COST-DES . EXE 

UNCDSC . XDB 

Standard 

FACILITY  XDB 

Total/Partial  Summary  Tasks 

DES-EDT3.EXE 

BTSMtdpd, XDB 
BT-PASS .DAT 
CLASLST.DAT 
DES-BTSM. XDB 
INSTINFO.DAT 
TRDCOSTS .DAT 
T  R WD  Li — . XD  3 
VALLIST.DAT 

DELETE  RESOURCE  TOTAL  FILE 

DRESTOS.EXE 

RSMTTOTL . XDB 

F^C  Resource  Description  Table 

EDF4CS.EXE 

DES-BTSM . XDB 
DES-TASK . XDB 
DES-TRWD . XDB 
F4CDESC . XDB 
F4C-YEAR. XDB 
INSTINFO.DAT 

F^C  Conversion  Codes 

F4CAMS . EXE 

AMSF4C . XDB 

F^C  Description  Editor 

F4C-EDIT . EXE 

F4CDESC.XDB 

RESOURCE  CALCULATION 

FACASS.EXE 

AMSF4C.XDB 
BTSMtdpd. XDB 
CTODsecq. XDB 
F4C-YEAR.XDB 
FACILITY. XDB 
INSTINFO.DAT 
RMF-FACT . XDB 
RSMTTOTL . XDB 
RSMYsecq.XDB 
SCMIDid.  DAT 
TASKtiai .XDB 

:a  . 


acr:ess^'i . 
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Table  2  (Cont'd) 


Function 

Program 

Data  Files 

TRAVTIME.DAT 
TPJDCOSTS  .DAT 
TREEsecq . DAT 
UNC-FAcf . XDB 

3 £ r; E RA E  o r>!AT : c: j 

FA-XEDIS .EXE 

AMSF4C.XDB 
AREA  TAB. XDB 
FACILITY. XDB 
FFPROF . XDB 
F4CDESC . XDB 
INSTINFO . DAT 
SCMDEF.XDB 
SUB-TAB . XDB 
WP-DESC .DAT 

I  STy.EN’J 

INSTMENU.EXE 

INSTMEMU . TBl 

MR.  PM 

MRPMSS  ‘=’XE 

MRPMTEMP . DAT 
MRPMTEMP . BAT 

^.’aticnal  Guard 

NGDFAC.EXE 

FACILITY. XDB 

E'on  Arrr.y  Organizations 

NOAFAC . EXE 

FACILITY . XDB 

■Organization  Chart 

ORGCHRT . EXE 

ORGFGC .XDB 

RaMF  Factors 

RMF-FACT . EXE 

INSTINFO.DAT 
RMF-FACT . XDB 

Report  Periods 

RP-DATES .EXE 

INSTINFO  DAT 
ORGCHRT . XDB 

Display  Facility  Totals 

RSMTPDS.EXE 

FACILITY. XDB 
INSTINFO.DAT 
RSMTTOTL.XDB 
SYLCHART . ASC 

Facility  Totals  Report 

RSMTREPS .EXE 

FACILITY. XDB 
INSTINFO.DAT 
RSMTTOTL.XDB 

oubinstallation  Identification 

SUB-TAB . EXE 

INSTINFO.DAT 
SUB-TAB. XDB 

Trade  and  Costs 

TRD-EDIT.EXE 

INSTINFO.DAT 
TRDCOSTS .DAT 

Cnit  Cost  Factors 

UNC-FACT.EXE 

UNC-FACT .XDB 
UNCDSC .XDB 

Escalation  Factor  Editor 

URRAPR.EXE 

INSTINFO.DAT 
UNC-FACT .XDB 

Produce  Reports 

URRCOP . EXE 

AMSDSC.XDB 
AMSF4C.XDB 
FACILITY. XDB 
INSTINFO.DAT 
RSMTTOTL.XDB 

li 


Table  2  (Cont'd) 


Function 

Program 

Data  Files 

URR . XDB 

URRAPR.XDB 

URR  Editor 

URREDIT.EXE 

AMSDSC.XDB 

INSTINFO.DAT 

URR. XDB 

ZZZZZZZ.  URR 

V  Corps 

VCORPS.EXE 

FACILITY. XDB 

View  and  Print  Report  Files 

VIEWRP.EXE 

ZZZZZZZZ .FTR 
ZZZZZZZZ .OSR 
ZZZZZZZZ .UCR 
ZZZZZZZZ .URA 
ZZZZZZZZ .URC 

• 
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Table  3 


MRPM  Program  Files  Ordered  by  Data  File  Name 


Program 

Data  Files 

AMS-EDIT.EXE 

URRCOP . EXE 
URREDIT.EXE 

AMSDSC.XDB’ 

AMSF4CRP .EXE 

F4CAMS . EXE 

FACASS.EXE 

FA-XEDIS .EXE 

URRCOP . EXE 

AMSF4C.XDB 

AREA  TAB. EXE 

FA-XEDIS .EXE 

AREA-TAB . XDB 

DES-EDT3 . EXE 
FACASS.EXE 

BTSMtdpd.XDB 

DES-EDT3.EXE 

BT-PASS .DAT 

DES-EDT3.EXE 

CLASLST.DAT 

FACASS.EXE 

CTODsecq.XDB 

DES-EDT3.EXE 

EDF4C.EXE 

DES-BTSM.XDB 

EDF4CS.EXE 

DES-TASK.XDB 

EDF4CS.EXE 

DES-TRWD.XDB 

EDF4CS.EXE 

F4C-EDIT.EXE 

FA-XEDIS .EXE 

F4CDESC.XDB 

EDF4CS.EXE 

FACASS.EXE 

F4C- YEAR. XDB 

AMSF4CRP.EXE 

DATFAC . EXE 

FA-XEDIS .EXE 
FACASS.EXE 

NGDFAC . EXE 

NOAFAC . EXE 

RSMTDPS.EXE 

RSMTREPS.EXE 

URRCOP . EXE 

VCORPS . EXE 

FACILITY. XDB 

The  listing  of  data  file  name  is  in  alphabetical  order.  Each  data  file  has 
corresponding  execut  files. 
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Table  3  (Cont'd) 


Program 


Data  Files 


FA-XEDIS .EXE 

FFPROF.XDB 

AMSF4CRP.EXE 

DES-EDT3.EXE 

EDF4CS.EXE 

FACASS.EXE 

FA-XEDIS .EXE 

RMF-FACT .EXE 

RP-DATES .EXE 

RSMTDPS.EXE 

RSMTREPS.EXE 

SUB-TAB. EXE 

TRD-EDIT.EXE 

URRAPR.EXE 

URRCOP . EXE 
URREDIT.EXE 

INSTINFO.DAT 

INSTMEMU.EXE 

INSTMENU.TBl 

MRPMSSS.EXE 

MRPMTEMP . BAT 

MRPMSSS.EXE 

MRPMTEMP.DAT 

ORGCHRT . EXE 

RP-DATES. EXE 

ORGFGC . XDB 

FACASS.EXE 

RMF-FACT . EXE 

RMF-FACT . XDB 

AMSF4CRP.EXE 

DRESTOS.EXE 

FACASS.EXE 

RSMTDPS.EXE 

RSMTREPS.EXE 

URRCOP . EXE 

RSMTTOTL.XDB 

FACASS.EXE 

RSMYsecq.XDB 

FA-XEDIS .EXE 

SCMDEF . XDB 

FACASS.EXE 

SCMIDid.DAT 

FA-XEDIS .EXE 

SUB-TAB . EXE 

SUB-TAB. XDB 

RSMTDPS.EXE 

SYLCHART.ASC 

FACASS.EXE 

TASKtigi.XDB 

FACASS.EXE 

TRAVTIME.DAT 

DES-EDT3.EXE 

FACASS.EXE 

TRD-EDIT.EXE 

TRDCOSTS.DAT 

FACASS.EXE 

TREEsecq.DAT 
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Table  3  (Cont'd) 


Program 

Data  Files 

DES-EDT3 .EXE 

TRWDti — .XDB 

COST-DES.EXE 

UNC-FACT.EXE 

UNCDSC .XDB 

UNC -COMP .EXE 

UNC-FACT . EXE 

UNC-FACT . XDB 

FACASS.EXE 

UNC-FACT . EXE 
URRAPR.EXE 

UNC-FACT .XDB 

URRCOP . EXE 
URREDIT.EXE 

URR.XDB 

URRCOP . EXE 

URRAPR.XDB 

DES-EDT3 . EXE 

VALLIST.DAT 

FA-XEDIS .EXE 

WP-DESC.DAT 
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STANDARD  SUBROUTINES 


The  following  is  an  alphabetical  list  of  all  standard  subroutines 
with  detailed  descriptions . 


*  Name 

★ 

*  Author 

* 

*  Function 

■k 


* 

★ 

*  Usage 

* 


* 

★ 

* 

* 

★ 

★ 


Parameters 

com 

prml 


* 


★ 


★ 

★ 

* 

* 

* 

★ 

★ 

* 

■k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


prm2 

com 

prml 

prm2 

com 

prml 

prm2 

com 

prml 

pnti2 

com 

prml 

prm2 

com 

prml 

prm2 

com 

prml 

prm2 

com 

prml 


*  prm2 

*  Returns 

* 

*  Calls 

* 

*  Commons 


ansist 
Bobivy  Adams 

To  perform  various  ansi-standard  routines  by  sending  the 
appropriate  sequence  of  commands  to  the  terminal.  Note, 
the  command  parameter  (com)  can  be  in  upper  or  lower  case. 

character  com*3 

integer*2  prml,  prm2 

call  ansist  (com,  prml,  prm2) 


SGR  (select  graphic  rendition) 

0  (turn  all  attributes  off) 

1  (increase  screen  intensity) 

4  (dim  screen  intensity) 

5  (blin)cing) 

7  (reverse  video) 

not  used  (use  0  for  consistency) 

HVP  (horizontal  and  vertical  position) 

1-24  (row  in  which  to  place  cursor) 

1-80  (column  in  which  to  place  cursor) 

CUU  (cursor  up,  doesn't  change  column  position) 
number  of  rows  to  move  up  (won't  move  above  top  margin) 
not  used  (use  0  for  consistency) 

CUD  (cursor  down,  doesn't  change  column  position) 
number  of  rows  to  move  down  (won't  go  below  bottom  margin) 
not  used  (use  0  for  consistency) 

CUF  (cursor  forward,  doesn't  change  row  position) 
number  of  cols  to  move  right  (won't  go  past  right  margin) 
not  used  (use  0  for  consistency) 

CUB  (cursor  backward,  doesn't  change  row  position) 
number  of  cols  to  move  left  (won't  go  past  left  margin) 
not  used  (use  0  for  consistency) 

ED  (erase  in  display,  clear  screen) 
not  used  (use  0  for  consistency) 
not  used  (use  0  for  consistency) 

EL  (erase  in  line) 

0  (erase  from  cursor  position  to  the  end  of  line,  inclusive) 

2  (erase  the  entire  line) 
line  number  to  erase 

None . 

f sc. lib:  upper  compac 
None . 
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*  Name 

★ 

*  Author 

★ 

*  Function 

* 

* 

* 

★ 

*  Usage 


=  box  (assembler  routine) 

=  Russ  Hougland 

=  Draws  a  box  with  an  upper  left  corner  at  (xl,yl)  and  a  lower 
right  corner  at  (x2,y2).  The  sides  of  the  box  are  either 
single  lines  (type  =  1)  or  double  lines  (type  =  2) .  A  box  can 
also  be  erased  (type  =  0) . 

=  integer*2  xl,  yl,  x2,  y2,  type,  att 
call  box  (xl,  yl,  x2,  y2,  type,  att) 


*  Param.eters  = 

*  xl  - 

*  yl  - 

*  x2  - 

*  y2  - 

*  type  - 

* 

★ 

*  att 


row  of  the  upper  left  hand  corner 
column  of  the  upper  left  hand  corner 

row  of  the  lower  right  hand  corner  (x2  must  be  >  xl) 
column  of  the  lower  right  hand  corner  (y2  must  be  >  yl) 
0  (blan)c  lines,  erase  a  box) 

1  (single  line  box) 

2  (double  line  box) 

the  screen  attribute  to  use  on  the  box  (see  wt) 


*  Returns 

★ 

*  Calls 

★ 

*  Commons 


=  None . 
=  None . 
=  None. 


* 

* 

★ 

* 

★  * 


*  Name  =  cd  (convert  date) 

* 


* 

★ 


*  Author  =  Russ  Hougland 

* 


*  Function  =  Converts  a  date  from  the  internal  storage  format  to  the 

*  format  specified. 

* 

*  Usage  =  character  fmt*01,  cd*ll,  date*ll,  newdate*ll 

*  newdate  =  cd  (date^  fmt) 

* 


★ 

★ 

★ 

★ 

★ 

* 

★ 

•k 


*  Parameters  = 

*  date  -  the  date  to  be  converted  (must  be  in  the  internal  format  of 

*  ' YYYY/MMM/DD'  i.e.,  '1985/001/01') 


* 

* 

* 

★ 


fmt  -  the  date  format  to  convert  to  (can  be  lower  or  upper  case) 
'E'  (English  format  of  'MMM/DD/YYYY'  i.e.,  'JAN/01/1985') 
'M'  (metric  format  of  ' DD/MMM/YYYY'  i.e.,  ' Ol/JAN/1985' ) 


*  Returns 

★ 

* 


The  converted  date  stored  in  cd.  If  the  date  passed  is  empty  * 
or  in  error,  cd  returns  an  empty  date  (i.e.,  '  /  /  ')  * 

★ 


*  Calls  =  fortran:  ichar 

* 


★ 

★ 


*  Commons  =  None.  * 
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*  Name  =  chkbit  (assembler) 

•k 

*  Author  =  Russ  Hougland 

it 

*  Function  =  Chec)cs  whether  a  bit  is  set  or  reset, 


Usage 


*  Parameters 

*  code 

*  bit 

* 

*  Returns 

★ 

*  Calls 

* 

*  Commons 


integer*2  code,  bit 
logical*2  i,  chkbit 
i  =  chkbit  (code,  bit) 


-  variable  to  check 

-  the  bit  in  variable  (code)  to  check  (0 
=  True  if  the  bit  is  set. 

=  None . 

=  None . 
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*  Name  =  clrbox  (clear  box)  * 


*  Author  =  Russ  Hougland  * 

*  * 

*  Function  =  Clears  the  interior  area  of  a  box  with  the  upper  left-hand  * 

*  corner  at  (xl,yl)  and  the  lower  right-hand  corner  at  (x2,y2) .  * 

*  The  attribute  of  the  interior  is  determined  by  attr.  * 

*  * 

*  Usage  =  integer*2  xl,  yl,  x2,  y2,  attr  * 

*  call  clrbox  (xl,  yl,  x2,  y2,  attr)  * 

*  * 

*  Parameters  =  * 

*  xl.  -  row  of  the  upper  left  hand  corner  * 

*  yl  -  column  of  the  upper  left  hand  corner  * 

*  x2  -  i-ow  of  the  lower  right  hand  corner  (x2  must  be  xx;  * 

*  y2  -  column  of  the  lower  right  hand  corner  (y2  must  be  >  yl)  * 

*  attr  -  attribute  of  the  interior  of  the  box  (see  wt)  * 

*  * 

*  Returns  =  None .  * 

*  * 

*  Calls  =  fsc.lib:  scroll  * 

*  * 

*  Commons  =  None .  * 


*  Name  =  clrmod  (color  mode  -  assembler)  * 

*  * 

*  Author  =  Russ  Hougland  * 

*  * 

*  Function  =  To  determine  if  the  user's  computer  is  in  the  color  mode.  * 

*  * 

*  Usage  =  logical*2  clrmod,  i  * 

*  i  =  clrmod  ()  * 

*  * 

*  Parameters  =  None.  * 

*  * 

*  Returns  =  clrmod  * 

*  * 

*  Calls  =  None.  * 

*  * 

*■  Commons  =  None.  * 


Name 


=  cmp2sd  (compare  to  system  date) 

Author  =  Russ  Hougland 

Function  =  To  compare  a  date  to  the  system  date. 

"sage  -  character  dat*ll 

integer*2  flag 
call  cmp2sd  (dat,  flag) 

Parameters  = 

dat  -  the  date  to  be  compared  (must  be  in  internal  format  i.e., 
'  YYYY/MMM/DD' ) 

flag  -  indicates  results  of  the  comparison 

-1  (if  the  date  is  before  the  system  date) 

0  (if  the  two  dates  are  equal) 

+1  (if  the  date  is  after  the  system  date) 

Returns  =  flag  (indicates  results  of  comparison) . 

Calls  =  fsc.lib:  sysdat 


Commons 


*  Name 


=  None . 


=  command 


*  Author 


=  Russ  Hougland 


*  Function  =  Execute  a  DOS  command  from  within  a  program. 


Usage 


logical*2  error 
character  cmnd*(*) 
call  command  (cmnd,  error)  or 
call  command  ('dir  *. for' c, error) 


*  Parameters  = 

*  error  -  true  if  an  error  occurred  during  execution. 

*  cmnd  -  character  variable  containing  the  DOS  command  to  execute  (if 

*  a  variable  is  used,  the  string  contained  by  it  must  be 

*  terminated  with  a  null) . 

*  literal  -  if  the  DOS  command  to  be  executed  is  contained  in  a  literal 

*  string,  the  letter  c  must  follow  immediately  after  the  string. 

* 

*  Returns  =  if  error  is  true,  a  message  will  have  been  written  to  the 

*  file  error.dat 


*  Calls 


fsc.lib;  rpterr 
fortran:  system 


*  Commons  =  None.  * 
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*  Name 


*  Author 


=  compac 
=  Bobby  Adams 


*  Function 


Usage 


Moves  all  blank  characters  in  a  string  to  the  end  of  the 
string  and  returns  the  number  of  characters  in  the  string. 

integer*2  num 
character  str*(*) 
call  compac  (str,  num) 


*  Parameters 

*  St  r 


the  string  variable  of  any  length 

the  number  of  non-blank  characters  in  the  string 


*  Returns  =  It  returns  num,  the  length  of  character  string  stored  in  str.  * 


*  Calls 


=  fortran:  len 


*  Commons 


Author 


None .  ^ 


=  contain  (logical  function) 
=  Russ  Hougland 


Function  =  Determines  if  a  substring  (sub)  is  contained  within  another 
string  (str) . 

Usage  =  logical*2  contain,  i 

character  sub*(*),  str*(*) 
i  =  contain  (str,  sub) 

Parameters  = 

str  -  the  string  to  search 

sub  -  the  substring  to  search  for 

Returns  =  contain  is  true  if  the  substring  is  found  within  the  target 
string. 


Calls 


=  fortran:  len 


*  Commons  =  None. 
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*  Name  =  csort  * 

*  * 

*  Author  =  Russ  Hougland  * 

*  * 

*  Function  =  This  is  an  interface  to  a  sort  routine  (written  in  c  by  Steve  * 

*  Corner  and  also  contained  in  f sc. lib) .  It  will  sort  a  * 

*  file  using  multiple  keys  in  either  ascending  or  descending  » 

*  order .  ,  * 

*  * 

*  Usage  =  integer*4  addrl,  addr2,  locfar  * 

*  character  control* (*),  filen*(*)  * 

*  * 

*  addrl  =  locfar  (control)  * 

*  addr2  =  locfar  (filen)  * 

*  call  csort  (addrl,  addr2)  * 

*  * 


*  Parameters  =  * 

*  addrl  -  the  address  of  the  control  string  * 

*  addr2  -  the  address  of  the  name  of  the  file  to  be  sorted  * 

*  filen  -  character  string  containing  the  name  of  the  file  to  be  sorted.  * 

*  the  file  name  must  be  terminated  with  a  null.  * 

*  control  -  a  character  variable  containing  the  command  string  for  the  * 

*  sort,  the  command  string  must  be  terminated  with  a  null.  * 

*  the  format  of  control  is  as  follows:  * 

*  if  first  character  is  's',  second  character  specifies  * 

*  the  field  separator  character.  * 

*  followed  by  zero  or  more  words  of  the  form:  * 


[b] [c|n] [r] [<m>] [.<n>] [-[<m2>] [.<n2>] 
b  ignore  leading  blanks 


*  c  ignore  case  * 

*  n  numeric  comparison  * 

*  r  reverse  order  * 

*  <m>  field  number  * 

*  .<n>  begin  column  * 

*  <m2>  end  field  number  * 

*  .<n2>  end  column 

*  Returns  =  None.  * 

*  Calls  =  fsc.lib:  sort  * 

*  Commons  =  None.  * 
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7»*********T>r************************-*****************************'*****r*^**#***** 


*  Name  =  csrpos  (assembler  routine) 

* 

*  Author  =  Dan  Weidenfeid 

* 

*  Function  =  To  position  the  cursor. 

* 

*  Usage  =  integer*2  row,  col 

*  call  csrpos  (row,  col) 

* 

*  Parameters  =. 

*  row  -  the  row  to  position  to  -  1  (0-24) 

*  col  -  the  column  to  position  to  -  1  (0-79) 

* 

*  Returns  =  None. 

■k 


It 

it 

it 


■k 


k 


k 


*  Calls  =  None.  * 

*  * 


*  Commons  =  None .  * 


*  Commons  =  None.  * 

iritiritirirkir-kkkkkkitkitkkkkkkkkkkkk’kkkkkkkkkirirk-k-kirirkkifkkkirkk-kkitiritk******************* 
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k 

Nam.e 

danti.m  (assembler  routine) 

k 

* 

k 

★ 

Author 

= 

Dan  Weidenfeld 

k 

k 

k 

Funct ion 

= 

T:  get  the  system  time. 

k 

k 

k 

Usage 

= 

integer*2  hours,  min,  secs 

k 

k 

k 

call  gettim  (hours,  min,  secs) 

k 

k 

k 

Parameters 

= 

k 

k 

hours 

- 

the  hour  of  the  day  in  military  form  (i.e.,  1  pm  is  13) 

* 

k 

m.in 

- 

the  minutes 

* 

k 

k 

secs 

- 

the  seconds 

Ht 

k 

k 

k 

Returns 

the  time  of  day. 

k 

Hr 

Calls 

None  . 

k 

Hr 

Hr 

Hr 

Commons 

= 

None  . 

♦ 

*  Name 

It 

*  Author 

n 

*  Function 


=»  daydif  (integer  function) 

=  Russ  Hougland 

=  Returns  the  number  of  days  between  two  dates. 


*  ♦ 
* 
★ 
* 
★ 
* 
* 


*  Usage  =  character  sdate*ll,  edate*ll 

*  integer*4  days,  daydif 

*  days  =  daydif  (sdate,  edate) 


Hr 

Hr 

It 

* 


* 

■k 


Pa 


rameters 

sdate 

edate 


the  starting  date  (in  the  internal  format) 
the  ending  date  (in  the  internal  format) 


♦ 

Hr 

■k 

k 


*  Returns 


*  Calls 


=  The  number  of  days  between  the  two  dates.  If  an  invalid  date  * 
is  passed,  the  function  returns  the  value  -9,999.  * 

★ 

=  f sc . lib :  iconv  * 


*  Commons  ”  None.  * 
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*  Name  =  delay  * 

*  * 

*  Author  =  Russ  Hougland  * 

■»  ★ 

*  Function  =  Delays  program  action  for  a  specified  number  of  seconds.  * 


Usage 


integer *2  secs 
call  delay  (secs) 


*  Parameters  = 

*  secs  -  the  number  of  seconds  to  delay 

* 

*  Returns  =  None. 


Calls 


=  fortran:  gettim 


jmmo.ns  ■-  None . 


*  Name 


=  dskcnf  (assembler  routine) 


*  Author 


=  Paul  Shih 


*  Function  =  find  out  the  disks  type 

* 

*  Usage  =  integer*2  info (26) 

*  call  dskcnf(info) 

•# 

*  Returns  = 

*  Entry  1  is  drive  A 

*  2  is  drive  B  and  so  on  . 


*  Commons 


INVALID_DSK 
REMOTE_DSK 
LOCAL_RAM_DSK 
LOCAL_FIXED_DSK 
LOCAL  FLOPPY  DSK 
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*  Name  =  erase  * 

*  * 

*  Author  =  Russ  Hougland  * 

*  * 

*  Function  =  Erases  the  lines  between  two  rows  (linel  and  line2) ,  * 

*  inclusive.  * 

*  Usage  =  integer*2  linel,  line2,  att  * 

*  call  erase  (linel,  line2,  att)  * 

*  * 

*  Parameters  =  * 

*  linel  -  the  erasing  starts  with  this  line  (linel  must  be  <=  line2)  * 

*  line2  -  the  erasing  ends  with  this  line  (line2  must  be  >=  linel)  * 

*  att  -  the  attribute  to  fill  the  erased  field  with  * 

*  * 

*  Returns  =  None.  * 

*  * 

*  Calls  =  fsc.lib:  scroll  * 

*  * 

*  Commons  =  None.  * 


*  Name 

A 

*  Author 

* 

*  Function 

★ 

* 

* 

★ 


* 

*  Usage 

★ 

★ 

■k 

★ 


*  Parameters 

*  error 

*  filnam 

* 


★ 

*  literal 

* 


★ 


*  Returns 

* 


■k 

*  Calls 

★ 

* 


execute 
Russ  Hougland 

Suspends  the  program  currently  running  and  activates  the 
new  program  (filnam) .  When  the  new  program  (filnam) 
terminates,  the  original  program  is  awakened  and  resumes  its 
execution  with  the  next  instruction  after  the  call  to  this 
subroutine . 

logical*2  error 
jharacter  filnam* (*) 

'.all  execute  (filnam,  error)  or 
call  execute  ('prog2 .exe'c,  error) 


true  if  an  error  occurred  during  execution 

character  variable  containing  the  program  name  to  execute  (if 
a  variable  is  used,  the  string  contained  by  it  must  be 
terminated  with  a  null) . 

if  the  program  name  to  be  executed  is  contained  in  a  literal 
string,  the  letter  c  must  follow  immediately  after  the  string. 

if  error  is  true,  a  message  will  have  been  written  to  the 
file  error.dat 

fortran:  spawnlp 

fsc.lib:  rpterr 


■k 

★ 

* 

★ 

* 

★ 

•k 

•k 

* 

* 

★ 

it 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


*  Commons  =  None .  * 
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*  Name 


=  fkeys 


*  Author  =  Russ  Hougland 


*  Function 


Usage 


=  Turns  on/off  the  function  display  fields  on  line  25  (should 
be  used  in  conjunction  with  fline) . 

=  integer*2  fl,  f2,  f3,  f4,  f5,  f6,  f7,  f8,  f9,  flO 
call  fkeys  (fl,  f2,  f3,  f4,  f5,  f6,  fl,  f8,  f9,  flO) 


*  Parameters 

*  fl  -  flO 


-  0  (no  change) 

1  (turn  display  field  off) 

2  (turn  display  field  on)  and  displays  (by  default) : 
fl  -  Help 

f2  -  Keys 
f3  -  Add 
f4  -  Delete 
f5  -  Edit 
f6  -  Find 
fl  -  List 
f8  - 

f9  -  Next 
flO  -  Exit 


*  Returns  =  None. 


*  Calls 


fsc.lib;  wt 


*  Commons  =  ffldcom 

*  fflds  (array  10x2  of  character*6) .  if  needed,  the  field  to 

*  be  displayed  can  be  changed  by  modifying  the  contents  of 

*  fflds  (i.e.,  fflds (function  key, 2)  =  'Change'). 


*  Name 


=  fline 


*  Author  =  Russ  Hougland 

* 

*  Function  =  Initially  writes  the  function  keys'  display  line. 


Usage 


=  call  fline 


*  Parameters  =  None. 


*  Returns  =  None. 


*  Calls 


=  fsc.lib:  wt 


*  Commons  =  None.  * 
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*  Name 


=  frames  (assembler  routine) 


*  Author  =  Russ  Hougland 

★ 

*  Function  =  To  save  up  to  five  video  screen  windows  into  memory  for  later 

*  restoration.  When  saving  a  window,  the  row  and  column 

*  parameters  specify  the  area  to  be  saved.  When  restoring  a 

*  window,  the  row  and  column  parameters  specify  the  location  the 

*  window  shoula  be  restored  to. 

* 

*  Usage  =  integer*2  action,  frame,  rl,  cl,  r2,  c2 

*  call  frames  (action,  frame,  rl,  cl,  r2,  c2) 


*  Parameters 

*  action 


frame  - 


the  action  to  take 
,  1  (save  the  window  to  memory) 

anything  else  (restore  the  window  from  memory) 
memory  frame  to  save/restore  the  window  to/from 
1-5  (possible  frames  to  use) 

row  of  the  upper  left  hand  corner  of  the  window  (1-25) 
column  of  the  upper  left  hand  corner  of  the  window  (1-80) 
row  of  the  lower  right  hand  corner  of  the  window  (1-25) 
column  of  the  lower  right  hand  corner  of  the  window  (1-80) 


*  Returns 

* 

*  Calls 


=  None . 


=  None . 


*  Commons 


None . 


*  Name 


*  Author 


=  gtinsk  (get  instruction  key) 
=  Russ  Hougland 


*  Function  =  Returns  the  ASCII  integer  value  for  the  nonalphanumeric  keys  * 

*  (e.g.,  function  keys.  Esc,  Ins,  etc.).  Alphanumeric  keys  are  * 

*  ignored.  Those  keys  that  send  two  codes  (i.e.,  a  nul  and  then  * 

*  another  number)  will  only  return  to  the  calling  program  the  * 

*  second  number.  * 

*  * 

*  Usage  =  integer*2  key  * 

*  call  gtinsk  (key)  * 

*  * 

*  Parameters  =  * 

*  key  =  ASCII  integer  value  of  the  depressed  key  * 


*  Returns 


*  Calls 


=  key  (the  ASCII  integer  value  of  the  depressed  nonalphanumeric  * 
key)  * 

★ 

=  f sc. lib:  inkey  * 


*  Commons 


=  None . 
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*  Name  =  iconv  (convert  character  string  to  integer)  * 

*  * 

*  Author  =  Bobby  Adams  * 

*  * 

*  Function  =  To  convert  a  character  string  of  numbers  to  its  integer  * 

*  equivalent.  * 

*  * 

*  Usage  =  character  str*(*)  * 

*  integer*4  num,  iconv  * 

*  logical*2  err  * 

*  num  =  iconv  (str,  err)  * 

*  * 

*  Parameters  =  * 

*  str  -  the  character  string  containing  the  number  to  convert  * 

*  err  -  true  if  an  error  occurrs  * 

*  * 

*  Returns  =  iconv  and  err  (if  err,  then  iconv  equals  0)  * 

*  * 

*  Calls  =  fortran:  ichar  * 

*  * 

*  Commons  =  None .  * 


*  Name  =  inkey  (assembler  routine)  * 

*  * 

*  Author  =  Dan  Weidenfeld  * 

*  * 

*  Function  =  To  perform  a  single  character  read  from  the  keyboard.  * 

*  * 

*  Usage  =  integer*2  i,  inkey,  echo  * 

*  i  =  inkey  (echo)  * 

*  * 

*  Parameters  =  * 

*  echo  -  if  ecfual  to  zero  the  character  is  not  echoed  to  the  screen.  * 

*  * 

*  Returns  =  the  ascii  value  of  the  character  entered  from  the  keyboard.  * 

*  * 

*  Calls  =  None.  * 

*  * 

*  Commons  *  None .  * 
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*  Name  =  inout  (assembler  routine)  * 

*  * 

*  Author  =  Dan  Weidenfeld  * 

*  * 

*  Function  =  To  perform  a  single  character  write  to  the  screen.  * 

*  * 

*  Usage  =  character  char*01  * 

*  call  inout  (char)  * 

*  * 

*  Parameters  =  * 

*  char  -  the  character  to  be  displayed  on  the  screen  * 

*  * 

*  Returns  =  None.  * 

*  * 

*  Calls  =  None.  * 

*  * 

*  Commons  =  None.  * 


*  Name  =  isfile  (assembler  routine)  * 

*  integer*2  function  isfile  * 

*  * 

*  Author  =  Paul  Shih  * 

*  * 

*  Function  =  To  check  file  or  subdirectory  status  * 

*  * 

*  Usage  =  integer*2  i  * 

*  i  =  isfile ('test .dat'c)  * 

*  * 


ir 

Returns 

- - 1 

:  if  file  not  found 

★ 

* 

Bit 

0 

on 

:  Read-Only  file 

★ 

ie 

Bit 

1 

on 

:  Hidden  file 

★ 

* 

Bit 

2 

on 

:  System  file 

•k 

★ 

Bit 

3 

on 

:  Read-Only  file 

k 

it 

Bit 

4 

on 

:  Read-Only  file 

k 

*  * 


*  Commons  =  None.  * 
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*  Commons  =  None .  * 
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*  Name 

★ 

*  Author 

* 

*  Function 

* 

•k 

* 

* 

*  Usage 

* 

★ 

* 

★ 


=  pi  (prompt  for  integer)  * 

★ 

=  Kevin  Stewart  * 

★ 

=  To  write  out  a  prompt  and  accept  an  integer  response.  After  * 
■accepting  the  response,  the  prompt  and  reply  are  erased.  ,* 

The  routine  places  one  space  between  the  end  of  the  prompt  * 


and  the  start  of  the  reply.  * 

★ 

=  integer*2  row,  col,  rlen,  code,  patt,  ratt  * 

integer*4  reply  * 

character  prompt* (*)  * 


call  pi  (row,  col,  prompt,  reply,  rlen,  code,  patt,  ratt)  * 

★ 


*  Parameters 

*  row 

*  col 

* 


★ 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


prompt 

reply 

rlen 

code 


patt 

ratt 


*  Returns 

★ 

*  Calls 

k 


k 


the  row  to  display  the  prompt  on 

the  column  to  begin  displaying  the  prompt  on 

0  (center  the  prompt  and  reply) 

the  text  to  be  displayed  as  a  prompt 

the  integer  reply  of  the  user 

the  maximum  length  of  the  user' s  reply 

code  can  give  special  instructions  for  the  reply  entry. 

more  than  one  can  be  passed  by  summing  the  options  desired. 

4  (user  must  enter  a  carriage  return  to  enter  a  value) 

8  (the  number  will  not  be  written  upon  entry  and  exit  from  ri) 
16  (the  prompt  will  not  be  erased  upon  exit  from  pi) 
the  attribute  to  display  the  prompt  in  (see  wt) 
the  attribute  to  display  the  reply  in  (see  wt) 


k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


reply  * 

★ 

f sc. lib:  chlcbit  ri  window  wt  * 

fortran:  len  * 

k 


*  Commons  =  None.  * 
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*  Name  =  pt  (prompt  for  text)  * 

*  * 

*  Author  =  Kevin  Stewart  * 

*  * 

*  Function  =  To  write  out  a  prompt  and  accept  a  text  response.  After  * 

*  accepting  the  response,  the  prompt  and  reply  are  erased.  * 

*  The  routine  places  one  space  between  the  end  of  the  prompt  * 

*  and  the  start  of  the  reply.  * 

*  * 

*  Usage  =  integer*2  row,  col,  code,  patt,  ratt  * 

*  character  prompt* (*),  reply* (*)  * 

*  call  pt  (row,  col,  prompt,  reply,  code,  patt,  ratt)  * 

*  * 


*  Parameters  = 

*  row  -  the  row  to  display  the  prompt  on 

*  col  -  the  column  to  begin  displaying  the  prompt  on ■ 

*  0  (center  the  prompt  and  reply) 

*  pro.mpt  -  the  text  to  be  displayed  aa  a  prompt 

*  reply  -  the  text  reply  of  the  user 

*  code  -  code  can  give  special  instructions  for  the  reply  entry. 

*  more  than  one  can  be  passed  by  summing  the  options  desired. 

*  1  (the  string  is  made  upper  case) 

*  2  (the  string  is  pac)ced  —  no  blanks) 

*  4  (user  must  enter  a  carriage  return  to  enter  a  value) 

*  8  (the  text  will  not  be  written  upon  entry  and  exit  from  rt) 

*  16  (the  prompt  will  not  be  erased  upon  exit  from  pi) 

*  patt  -  the  attribute  to  display  the  prompt  in  (see  wt) 

*  ratt  -  the  attribute  to  display  the  reply  in  (see  wt) 


*  Returns  =  reply 

* 


*  Calls 

* 

★ 


f sc. lib:  chkbit  rt  window  wt 
fortran:  len 


★ 

★ 

★ 

* 

* 

★ 

★ 

★ 

* 

★ 

* 

* 

* 

* 

* 

★ 

★ 


* 

★ 

★ 


*  Commons  =  None .  * 
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*  Commons  =  None . 
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*  Name 


=  rd  (read  date) 


*  Author 


=  Russ  Hougland 


*  Function  =  Reads  a  user's  reply  (date  field)  at  a  specified  location 

*  (row, col) .  Before  the  reply  is  read,  the  field  is  written 

*  in  the  attribute  specified  (attin) ;  upon  termination,  the 

*  reply  is  rewritten  in  the  attribute  specified  (attout) . 

*  The  date  is  always  returned  in  internal  format 

*  ( ' YYYV/OMM/DD' ) .  This  routine  returns  either  a  blank  date 

*  ('0000/000/00')  or  a  valid  date,  but  never  an  invalid  date. 


Usage 


integer*2  row,  col,  code,  attin,  attout 
character  fmt*01,  date*ll 

call  rd  (row,  col,  date,  fmt,  code,  attin,  attout) 


*  Parameters 

*  row 

*  col 

*  date 

*  fmt 


attin 

attout 


*  Returns 


the  row  on  which  to  read  the  date  * 
the  column  on  which  to  read  the  date  * 
the  date  to  be  read  * 
the  format  of  date  for  display  and  entry  purposes  (any  case)  * 
'M'  (metric  DD/MMM/YYYY)  * 
'E'  (English  MMM/DD/YYYY)  * 
code  can  give  special  instructions  for  the  date  entry.  * 
more  than  one  can  be  passed  by  summing  the  options  desired. 

4  (user  must  enter  a  carriage  return  to  enter  a  value)  * 
8  (the  date  will  not  be  written  upon  entry  and  exit  from  rd)  * 
the  attribute  to  display  the  date  in  upon  entry  (see  wt)  * 
the  attribute  to  display  the  date  in  upon  exit  (see  wt)  * 

* 

code  -  indicates  how  rd  was  terminated  (e.g.,  carriage  return,  * 
up  arrow,  etc . )  * 
date  -  the  date  entered  by  the  user  * 


*  Calls 


f sc. lib:  chkbit  window  ri  wi  rt  wt  wd 
fortran:  ichar  mod 


*  Commons  =  None.  * 
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*  Name 


=  rf  (read  fixed  real) 


*  Author 


*  Function 


Usage 


=  Bobby  Adams 

=  Reads  a  user's  reply  (real  field)  at  a  specified  location 
(row, col) .  Before  the  reply  is  read,  the  field  can  be 
written  in  a  specified  attribute  (attin) ;  upon  termination, 
the  reply  can  be  rewritten  in  a  specified  attribute  (attout) . 
Note  the  real  number  read  is  double  precision.  Further,  the 
total  length  of  the  number  is  lenl  +  len2  +  1  (decimal  point) 

=  integer*2  row,  col,  lenl,  len2,  code,  attin,  attout 
real*8  num 

call  rf  (row,  col,  num,  lenl,  len2,  code,  attin,  attout) 


*  Parameters 

*  row 

*  col 

*  num 

*  lenl 

*  len2 

*  code 


*  attin 

*  attout 

* 

*  Returns 


the  row  on  which  to  read  the  number 
the  column  on  which  to  read  the  number 
the  number  to  be  read 

the  maximum  length  of  the  left  side  of  the  number 
the  maximum  length  of  the  right  side  of  the  number 
code  can  give  special  instructions  for  the  number  entry, 
more  than  one  can  be  passed  by  summing  the  options  desired. 

4  (user  must  enter  a  carriage  return  to  enter  a  value) 

8  (the  number  will  not  be  written  upon  entry  and  exit  from  rf) 
the  attribute  to  display  the  number  in  upon  entry  (see  wt) 
the  attribute  to  display  the  number  in  upon  exit  (see  wt) 

code  -  indicates  how  rf  was  terminated  (e.g.,  carriage  return, 
up  arrow,  etc.) 

num  -  the  number  entered  by  the  user 


Calls 


=  fsc.lib:  ch)cbit  window  cursor  csrpos  inlcey  wt  wf 


*  Commons  =  None .  * 
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*  Name 

★ 

*  Author 


*  Function 

★ 

* 


Usage 


=  ri  (read  integer) 
=  Bobby  Adams 


Reads  a  user's  reply  (integer  field)  at  a  specified  location 
(row, col) .  Before  the  reply  is  read,  the  field  can  be 
written  in  a  specified  attribute  (attin) ;  upon  termination, 
the  reply  can  be  rewritten  in  a  specified  attribute  (attout) . 

integer*2  row,  col,  len,  code,  attin,  attout 
integer* 4  num 

call  ri(row,  col,  num,  len,  code,  attin,  attout) 


Parameters 

row 

col 

num 

len 

code 


*  attin 

*  attout 

* 

*  Returns 
*■ 

★ 

★ 

*  Calls 

★ 

*  Commons 


-  the  row  on  which  to  read  the  number 
-the  column  on  which  to  read  the  number 

-  the  number  to  be  read 

-  the  maximum  length  of  the  number 

-  code  can  give  special  instructions  for  the  number  entry, 
more  than  one  can  be  passed  by  summing  the  options  desired. 

4  (user  must  enter  a  carriage  return  to  enter  a  value) 

8  (the  number  will  not  be  written  upon  entry  and  exit  from  ri) 

-  the  attribute  to  display  the  number  in  upon  entry  (see  wt) 

-  the  attribute  to  display  the  number  in  upon  exit  (see  wt) 

=  code  -  indicates  how  ri  was  terminated  (e.g.,  carriage  return, 
up  arrow,  etc.) 

num  -  the  number  entered  by  the  user 
=  f sc.  lib:  chJcbit  cursor  window  csrpos  in)cey  wi  wt 
=  None. 

**************************************************************** 


* 

★ 

★ 

* 

★ 

* 

★ 

* 

* 

★ 

it 

*  ★ 


*  Name 

★ 

*  Author 

★ 

*  Function 

* 

*  Usage 

★ 
it 


=  rpterr  (report  error) 

=  Kevin  Stewart 

=  To  append  an  error  message  to  the  report  file  (error.dat) . 

=  character  sn*(*),  msg*(*) 
call  rpterr  (sn,  msg) 


★ 

it 

it 

it 

* 

★ 

★ 

★ 

* 


*  Parameters  =  * 

*  sn  -  subroutine  name  where  error  occurred  * 

*  msg  -  error  message  to  written  to  the  error  file  * 

*  * 

*  Returns  =  None.  * 

*  * 

*  Calls  =  f sc. lib;  sysdat  cd  * 

*  fortran:  gettim  inquire  open  close  * 


*  Commons  =  None.  * 
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*  Nane 


fcr  ★  ★  It  ★  ★  * 


=  rr  (read  real) 


*  Author 


=  Bobby  Adams 


*  Function 


Usage 


Reads  a  user's  reply  (real  field)  at  a  specified  location 
(row, col).  Before  the  reply  is  read,  the  field  can  be 
written  in  a  specified  attribute  (attin) ;  upon  termination, 
the  reply  can  be  rewritten  in  a  specified  attribute  (attout) 

integer*2  row,  col,  len,  code,  attin,  attout 
real *4  num 

call  rr(row,  col,  num,  len,  code,  attin,  attout) 


*  Parameters 

*  row 

*  col 

*  num 

*  len 

*  code 


attin 

attout 


*  Returns 


*  Calls 


-  the  row  on  which  to  read  the  number 

-  the  column  or.  which  to  read  the  number 

-  the  number  to  be  read 

-  the  maximum  length  of  the  number 

-  code  can  give  special  instructions  for  the  number  entry, 
more  than  one  can  be  passed  by  summing  the  options  desired. 

4  (user  must  enter  a  carriage  return  to  enter  a  value) 

8  (the  number  will  not  be  written  upon  entry  and  exit  from  rr) 

-  the  attribute  to  display  the  number  in  upon  entry  (see  wt) 

-  the  attribute  to  display  the  number  in  upon  exit  (see  wt) 

=  code  -  indicates  how  rr  was  terminated  (e.g.,  carriage  return, 
up  arrow,  etc . ) 

num  -  the  number  entered  by  the  user 
=  fsc.lib:  ch)cbit  window  cursor  csrpos  in)cey  wt  wr 


*  Commons 


=  None . 


*  Name  =  rsscrn  (assembler  routine)  * 

*  * 

*  Author  =  Russ  Hougland  * 

*  * 

*  Function  =  Restores  the  screen  display  previously  saved  by  svscrn.  * 

*  ★ 

*  Usage  =  call  rsscrn  * 

*  * 

*  Parameters  =  None  * 

*  * 

*  Returns  =  None.  * 

*  * 

*  Calls  =  None.  * 

*  * 

*  Commons  =  None .  * 
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★  ★★★★<r*******'*'*rit***#ilrilf********^*******<k********>»**********'A-****'0r**jir*****5k'Tlr***it* 

*  Name  =. rt  (read  text)  * 

•k  -k 

*  Author  =  Russ  Hougland  * 

★  ★ 

*  Function  =  Reads  a  user's  reply  (text  field)  at  a  specified  location  * 

*  (row, col) .  Before  the  reply  is  read,  the  field  can  be  * 

*  written  in  a  specified  attribute  (attin) ;  upon  termination,  » 

*  the  reply  can  be  rewritten  in  a  specified  attribute  (attout) .  * 

*  » 

*  Usage  =  integer*2  row,  col,  code,  attin,  attout  * 

*  character  str*(*)  * 

*  call  rt  (row,  col,  str,  code,  attin,  attout)  * 


*  Parameters 

*  row 

*  col 

*  str 

*  code 


attin 

attout 


*  Returns 


*  Calls 


the  row  on  which  to  read  the  string 
the  column  on  which  to  read  the  string 
the  string  to  be  read 

code  can  give  special  instructions  for  the  text  entry, 
more  than  one  can  be  passed  by  summing  the  options  desired. 

1  (the  string  is  made  upper  case) 

2  (the  string  is  packed  —  no  blanks) 

4  (user  must  enter  a  carriage  return  to  enter  a  value) 

8  (the  number  will  not  be  written  upon  entry  and  exit  from  rt ) 
the  attribute  to  display  the  string  in  upon  entry  (see  wt ) 
the  attribute  to  display  the  string  in  upon  exit  (see  wt ) 

code  -  indicates  how  rt  was  terminated  (e.g.,  carriage  return, 
up  arrow,  etc.) 

str  -  the  string  entered  by  the  user 

f sc. lib:  chkbit  cursor  csrpos  compac  inkey  wt 
fortran:  ichar 


*  Commons 


=  None. 


*  Name 


rv  (assembler  routine) 


*  Author  =  Russ  Hougland  * 

★  * 

*  Function  =  To  convert  an  attribute  to  reverse  video.  It  reverses  the  * 

*  foreground  and  background  RGB  bits  while  leaving  the  intensity  * 

*  and  blinking  bits  unchanged.  * 

k  ★ 

*  Usage  =  integer*2  newatt,  oldatt,  rv  * 

*  newatt  =  rv  (oldatt)  * 

*  * 

*  Parameters  =  * 

*  oldatt  -  the  old  attribute  that  needs  reversing  * 

*  * 

*  Returns  =  rv  (the  new  attribute  after  reversing) .  * 


*  Calls 


None . 


*  Commons 


None . 


kkkk**ir****k*ic*rkkiekieiririritiriririritkiritiritititir'kkitititkiikiricititir'ieirit'k1r'kititirifk'k-kk*kkk-kkic*-kkir-k*k1r 
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*  Name  =  scroll  (assembler  routine) 

•k 


k 

k 


*  Author  =  Dan  Weidenfeld 

★ 


k 

k 


*  Function  =  To  scroll  a  window  on  the  screen.  * 

*  * 


*  Usage  =  integer*2  rl,  cl,  r2,  c2,  action,  att 

*  call  scroll  (rl,  cl,  r2,  c2,  action,  att) 

* 


★ 

k 

k 


*  Parameters 


* 

rl 

★ 

★ 

cl 

k 

k 

r2 

k 

k 

c2 

k 

k 

action 

k 

k 

k 


*  att 

k 


row  of  the  upper  left  hand  corner  of  the  window  to  be 
scrolled  -  1  (0-24) 

column  of  the  upper  left  hand  corner  of  the  window  to  be 
scrolled  -  1  (0-79) 

row  of  the  lower  right  hand  corner  of  the  window  to  be 
scrolled  -  1  (0-24) 

column  of  the  lower  right  hand  corner  of  the  window  to  be 
scrolled  -  1  (0-79) 
the  action  to  perform 
+n  (scroll  up  n  lines) 

-n  (scroll  down  n  lines) 

0  (scroll  the  entire  window) 

the  attribute  of  blank  lines  added  after  scrolling  (see  wt) 


★ 

★ 

★ 

★ 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


*  Returns  =  None. 

* 


k 

k 


*  Calls  =  None. 

* 


* 

★ 


*  Commons  =  None.  * 


*  Name  =  setatt 

k 


k 

k 


*  Author 

k 

*  Function 

k 

k 

k 

k 

k 


=  Bobby  Adams  * 

★ 

=  To  initialize  the  values  of  the  attribute  variables  used  by  * 
the  screen  read  and  write  routines.  This  routine  must  be  * 

called  once  at  the  beginning  of  any  program  that  uses  the  * 

attribute  variables  stored  in  attrib.inc.  The  color  values  of  * 
the  variables  can  be  changed  by  changing  the  file,  color.dat.  * 

★ 


*  Usage  =  call  setatt 

k 


k 


k 


k 

k 

k 

k 

i 

k 

k 

k 


Parameters  =  None.  * 

k 

Returns  =  None.  * 

k 

Calls  =  f sc. lib:  clrmod  * 

k 

Commons  =  attrib  (attrib.inc)  -  contains  the  values  to  initialize  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
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*  Name 


*  Author 


*  Function 


=  svocrn  (assembler  routine) 

=  Russ  Houglana 

=  Saves  the  screen  display  in  a  buffer  area  for  later 
restoration  by  rsscrn. 


Usage 


=  call  svscrr. 


*  Parameters 


*  Returns 


=  None . 


*  Calls 


*  Commons 


*  Name  =  sysdat  (system  date)  * 

*  * 

*  Author  =  Kevin  Stewart  * 

*  * 

*  Function  =  To  -eturn  the  system  date  in  the  internal  storage  format.  * 

*  * 

*  Usage  =  character*!!  dat  * 

*  call  sysdat  (dat)  * 

*  * 

*  Parameters  =  * 

*  dat  -  the  system  date  in  internal  format  (' YYYY/MMM/DD' )  * 

*  ★ 

*  Returns  =  the  system  date  (dat) .  * 

*  ★ 

*  Calls  =  fortran:  getdat  * 

*  ★ 

*  Commons  =  None .  * 
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*  Name 

k 

*  Author 


=  today  (assembler  routine) 

=  Dan  Weidenfeld 

* 

*  Function  =  To  get  the  system  date. 

★ 

*  Usage  =  integer*2  year,  month,  day 

*  call  today  (year,  month,  day) 

* 

*  Parameters  =• 

*  year  -  the  year  of  the  system  date  (e.g.,  1986) 


month  -  the  month  of  the  system  date  (e.g.,  12) 
day  -  the  day  of  the  system  date  (e.g.,  25) 


*  Returns  =  the  system  date  (year, month, day) 

■k 

*  Calls  =  None. 


★ 

★ 

* 

★ 

★ 

★ 

★ 

it 

★ 

★ 

★ 

it 

k 

k 

k 

k 


*  Commons  =  None. 


*  Name 

k 

*  Author 

* 

*  Function 

k 

*  Usage 


upper 

Russ  Hougland 

Converts  to  upper  case  all  letters  in  the  parameter. 

character* (*)  str 
call  upper  (str) 


k 
k 

*  Parameters  = 

*  str  -  the  character  string  to  be  converted  to  upper  case 


*  Returns 

★ 

*  Calls 


str  (all  letters  in  upper  case) 
fortran:  ichar  char 


★ 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


*  Commons  =  None .  * 


42 


*  Name 


=  wd  (write  date) 


*  Author  =  Russ  Hougland 

★ 

*  Function  =  Write  a  date  at  a  specified  location  (row, col)  in  the  form 

*  specified.  The  date  should  be  passed  in  the  internal  format 

*  (' YYYY/MMM/DD' ) . 


Usage 


integer*2  row,  col,  attr 

character  fmt*01,  date*ll 

call  wd  (row,  col,  date,  fmt,  attr) 


*  Parameters 

*  row 

*  col 


*  Returns 

★ 

*  Calls 


the  row  on  which  to  write  the  date 
the  column  on  which  to  write  the  date 
0  (to  center  the  date  on  the  line) 
the  date  to  be  written 

the  format  of  date  (can  be  lower  or  upper  case) 
'M'  (metric  DD/MMM/YYYY) 

'E'  (English  MMM/DD/YYYY) 

the  attribute  to  display  the  date  in  (see  wt) 


=  f sc. lib:  cd  wt 


*  Commons 

************* 


=  None . 


*  Name 


=  wf  (write  fixed  real) 


*  Author 

★ 

*  Function 

* 


Usage 


=  Bobby  Adams 

=  Write  a  real  at  a  specified  location  (row, col)  using  the 
desired  attribute.  Note  the  number  written  is  double 
precision.  Further,  the  total  length  of  the  number  is 
lenl  +  len2  +  1  (decimal  point) . 

=  integer*2  row,  col,  attr,  lenl,  len2 
real*8  num 

call  wf  (row,  col,  num,  lenl,  len2,  attr) 


*  Parameters 

*  row 

*  col 


-  the  row  on  which  to  write  the  nuxnber 

-  the  column  on  which  to  write  the  number 
0  (to  center  the  number  on  the  line) 

-  the  number  to  be  written 

-  the  length  of  the  left  side  of  the  number  in 

-  the  length  of  the  right  side  of  the  number  in 

-  the  attribute  to  display  the  date  in  (see  wt) 


*  Returns 


=  None . 


Calls 


=  f sc. lib:  compac  wt 


*  Commons 
************* 


=  None. 
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*  Name 


=  wi  (write  integer) 


Author 


*  Function 


=  Russ  Hougland 

=  Write  an  integer  at  a  specified  location  (row, col)  using  the 
desired  attribute. 


Usage 


integer*2  row,  col,  attr,  len 
integer*4  num 

call  wi  (row,  col,  num,  len,  attr) 


*  Parameters  = 


the  row  on  which  to  write  the  number 
the  column  on  which  to  write  the  number 
0  (to  center  the  number  on  the  line) 
the  number  to  be  written 

the  length  of  the  field  to  display  the  number  in 
the  attribute  to  display  the  number  in  (see  wt) 


*  Retur.ns 


=  None . 


*  Calls 


=  fsc.lib;  wi 


*  Commons 


*  Name 


None . 


window  (assembler  routine) 


*  Author 

•k 

*  Function 


*  Usage 

* 


=  Russ  Hougland 

=  Set  the  video  attribute  for  a  window  directly  into  video 
memory . 

=  integer*2  rl,  cl,  r2,  c2,  attr 
call  window  (rl,  cl,  r2,  c2,  attr) 


*  Parameters 

*  rl 

*  cl 

*  r2 

*  c2 

*  attr 


-  row  of  the  upper  left  hand  corner 

-  column  of  the  upper  left  hand  corner 

-  row  of  the  lower  right  hand  corner  (x2  must  be  >  xl) 

-  column  of  the  lower  right  hand  corner  (y2  must  be  >  yl) 

-  the  attribute  of  the  window  (see  wt) 


*  Returns 


=  None . 


*  Calls 


=  None . 


*  Commons 

★★★★★★★★★★★★★ 


=  None. 
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*  Name  =  wr  (write  real)  * 

*  * 

*  Author  =  Bobby  Adams  * 

*  * 

*  Function  =  Write  a  real  at  a  specified  location  (row, col)  using  the  * 

*  desired  attribute.  * 

*  * 

*  Usage  =  integer*2  row,  col,  attr,  len  * 

*  real*4  num  * 

*  call  wr  (row,  col,  niim,  len,  attr)  * 

*  * 

*  Parameters  =  * 

*  row  -  the  row  on  which  to  write  the  number  * 

*  col  -  the  column  on  which  to  write  the  number  * 

*  0  (to  center  the  number  on  the  line)  * 

*  num  -  the  number  to  be  written  * 

*  len  -  the  length  of  the  field  to  display  the  number  in  * 

*  attr  -  the  attribute  to  display  the  date  in  (see  wt)  * 

*  * 

*  Returns  =  None.  * 

*  * 

*  Calls  =  fsc.lib:  wt  * 

*  * 

*  Commons  =  None.  * 


*  Name  =  wsd  (write  screen  date)  * 

*  * 

*  Author  =  Kevin  Stewart  * 

*  * 

*  Function  =  To  write  a  prompt  and  a  variable  to  the  screen.  * 

*  * 

*  Usage  =  integer*2  row,  col,  patt,  vatt  * 

*  character  prompt* (*),  dat*ll,  fmt*01  * 

*  call  wsd  (row,  col,  prompt,  dat,  fmt,  patt,  vatt)  * 

*  * 

*  Parameters  =  * 

*  row  -  the  row  position  of  the  date  * 

*  col  -  the  column  position  of  the  date  * 

*  0  (center  the  prompt  and  the  date  in  the  row)  * 

*  prompt  -  the  prompt  (displayed  at  row, col-plen-1)  * 

*  dat  -  the  date  variable  to  display  * 


fmt  -  the  format  to  display  the  date  in  (English  or  metric) 

patt  -  the  attribute  to  use  when  displaying  the  prompt 

vatt  -  the  attribute  to  use  when  displaying  the  date 


*  * 

*  Returns  =  None.  * 

*  * 

*  Calls  =  fsc.lib;  wd  wt  * 

*  * 

*  Commons  ==  None.  * 
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*  Name 

★ 

*  ri-^LhOi. 

* 

*  Function 

* 

*  Usage 

★ 

■k 

k 

k 

*  Parameters 

*  row 

*  col 

* 

*  prompt 

*  var 

*  lenl 

*  len2 

*  patt 

*  vatt 

* 


wsf  (write  screen  fixed  real) 

To  write  a  prompt  and  a  variable  to  the  screen. 

integer*2  row,  col,  lenl,  len2,  patt,  vatt 
character  prompt* (*) 
real*8  var 

call  wsf  (row,  col,  prompt,  var,  lenl,  len2,  patt,  vatt) 


the  row  position  of  the  variable 

the  column  position  of  the  variable 

0  (center  the  prompt  and  the  variable  in  the  row) 

the  prompt  (displayed  at  row, col-plen-1) 

the  variable  to  display 

the  maximum  length  of  the  left  side  of  the  number 
the  maximum  length  of  the  right  side  of  the  number 
the  attribute  to  use  when  displaying  the  prompt 
the  attribute  to  use  when  displaying  the  variable 


*  Returns  =  None. 

★ 

*  Calls  =  fsc.lib:  wf  wt 

* 


k 

k 


k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


*  Commons  =  None .  * 


*  Name  =  wsi  (write  screen  integer)  * 

*  * 

*  Author  =  Kevin  Stewart  * 

*  * 

*  Function  =  To  write  a  prompt  and  a  variable  to  the  screen.  * 

*  * 

*  Usage  =  integer*2  row,  col,  vlen,  patt,  vatt  * 

*  character  prompt* (*)  * 

*  integer*4  var  * 

*  call  wsi  (row,  col,  prompt,  var,  vlen,  patt,  vatt)  * 

*  * 

*  Parameters  =  * 


row  -  the  row  position  of  the  variable 

col  -  the  column  position  of  the  variable 

0  (center  the  prompt  and  the  variable  in  the  row) 
prompt  -  the  prompt  (displayed  at  row, col-plen-1) 


*  var  -  the  variable  to  display  * 

*  vlen  -  the  length  of  the  variable  * 

*  patt  -  the  attribute  to  use  when  displaying  the  prompt  * 

*  vatt  -  the  attribute  to  use  when  displaying  the  variable  * 

*  * 

*  Returns  =  None.  * 

*  * 

*  Calls  =  fsc.lib:  wi  wt  * 

*  ★ 

*  Commons  =  None.  * 
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*  Name  =  wst  (write  screen  text)  * 

*  * 

*  Author  =  Kevin  Stewart  * 

*  * 

*  Function  =  To  write  a  prompt  and  a  variable  to  the  screen.  * 

*  * 

*  Usage  =  integer*2  row,  col,  patt,  vatt  * 

*  character  prompt* (*),  var*(*)  * 

*  call  wst  (row,  col,  prompt,  var,  patt,  vatt)  * 

*  * 

*  Parameters  =  * 

*  row  -  the  row  position  of  the  variable  * 

*  col  -  the  column  position  of  the  variable  * 


0  (center  the  prompt  and  the  variable  in  the  row) 
prompt  -  the  prompt  (displayed  at  row, col-plen-1) 


*  var  -  the  variable  to  display  * 

*  patt  -  the  attribute  to  use  when  displaying  the  prompt  * 

*  vatt  -  the  attribute  to  use  when  displaying  the  variable  * 

*  * 

*  Returns  =  None.  * 

*  * 

*  Calls  =  fsc.lib:  wt  * 

*  * 

*  Commons  =  None.  * 
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*  Name  =  wt  (write  text  —  assembler  routine) 

★ 

*  Author  =  Russ  Hougland 

* 

*  Function  =  Write  a  string  at  a  specified  location  (row, col)  using  the 

*  desired  attribute. 

* 

*  Usage  =  'integer*2  row,  col,  attr,  len 

*  character  str*(*) 

*  call  wt  (row,  col,  str,  len,  attr) 


■k 

★ 

★ 

★ 

★ 

* 

★ 

★ 

★ 

★ 

★ 


* 

Parameters 

= 

★ 

★ 

row 

-  the  row  on  which  to 

write  the 

1  string 

k 

★ 

col 

-  the  column  on  which 

to  write 

the  string 

k 

★ 

0  (center  the  field 

including  trailing  blanks) 

k 

ir 

str 

-  the  string  to  be  written 

k 

★ 

len 

-  the  length  of  the  field  to  display  the  string  in 

k 

★ 

attr 

-  the  attribute  to  display  the 

string  in 

k 

★ 

to  determine  the  number  for  a 

color  use  the  following: 

k 

* 

foreground  color: 

blue 

1 

k 

★ 

green 

2 

k 

★ 

red 

4 

k 

★ 

intensity  : 

8 

k 

★ 

baclcground  color: 

blue 

16 

k 

* 

green 

32 

k 

it 

red 

64 

k 

* 

it 

blinking  : 

128 

k 

k 

★ 

★ 

★ 

★ 

★ 

★ 


to  get  the  desired  color,  simply  sum  the  numbers  of  the  desired* 
attributes,  for  example:  to  get  a  blin)cing  white  text  on  a  * 
blac)c  bac)tgrc’ind  attr  =  1+2  +  4  (white  foreground)  * 

+  0  (blac)c  baclcground)  * 
+  128  (blin]cing)  * 


*  Returns 

=  None. 

k 

* 

k 

*  Calls 

=  None. 

k 

k 

k 

*  Commons 

=  None . 

k 
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♦BTRIEVE  CALLS  * 

*  * 

♦FUNCTION  :  INTERFACE  WITH  THE  BTRIEVE  TO  ACCESS  A  SPECIFIED  FILE  ♦ 

★  /V 

♦USAGE  ;  INTEGER^2  STS , FILBLK ( 64) , REC (N) , LREC, LKEY, OP , KEYNUM  ♦ 

»  CHARACTER  KEY*N  ♦ 

♦  CALL  BTREE (FILBLK, OP, KEYNUM, KEY, LKEY, REC, LREC, STS)  * 

*  * 


♦PARAMETERS : 
★ 


FILBLK  -  STORES  THE  FILE  NAME  AND  PATH,  CURRENT  RECORD 
POINTER 


OP 


THE  TYPE  OF  OPERATION  TO  BE  EXECUTED 
(i.e.,  OPEN, UPDATE,  etc.) 


KEYNUM  -  THE  KEY  PATH  USED  IN  ALL  FILE  OPERATIONS 

♦*  NOTE  ♦* 

THE  KEYNUM  USED  MUST  BE  A  VALID  KEY  SPECIFED 
DURING  THE  FILES  INITIAL  OPERATION. 

KEY  -  CONTAINS  THE  KEY  FIELD  OF  THE  RECORD 

LKEY  -  LENGTH  OF  KEY  FTELi)  IN  BYTES 

REC  -  INTEGER* 2  ARRAY  CONTAINING  RECORD  DATA 

LREC  -  LENGTH  OF  RECORD  IN  BYTES 

STS  -  CONTAINS  THE  STATUS  OF  THE  OPERATION  PERFORMED 
RETURN  ZERO  IF  NORMAL  OPERATION 


♦NOTE  :  WHEN  CREATING  AND  OPENING  FILES,  THE  FILE  NAME  IS  IN  THE  * 

*  'KEY'  FIELD  AND  THE  FILE  NAME  LENGTH  IS  IN  THE  'LKEY'  ♦ 

*  FILED,  example:  * 

*  * 

♦  CALL  BTREE  (FILBLK, 0 , 0 ,' FILE . XDB' , 8 , REC, LREC, STS )  * 


♦  BTRIEVE  OPERATIONS  ♦ 


♦  (0)  -  OPEN 

*  PURPOSE  -  TO  OPEN  A  BTRIEVE  FILE 


♦  (1) 

♦  PURPOSE 

★ 

♦  (2) 

♦  PURPOSE 

★ 

♦  (3) 

♦  PURPOSE 

♦ 

♦  (4) 

♦  PURPOSE 


(5) 

PURPOSE 


(6) 


-  CLOSE 

-  TO  CLOSE  A  BTRIEVE  FILE 

-  INSERT 

-  TO  INSERT  A  RECORD  IN  A  FILE 

-  UPDATE 

-  TO  UPDATE  AN  EXISTING  RECORD  IN  A  BTRIEVE  FILE 
DELETE 

-  TO  DELETE  AN  EXISTING  RECORD  IN  A  BTRIEVE  FILE 

-  GET  EQUAL 

-  TO  RETRIEVE  A  RECORD  FROM  A  BTRIEVE  FILE  CORRESPONDING 

TO  A  SPECIFIC  KEY  VALUE 

-  GET  NEXT 
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*  PURPOSE 

* 

* 

*  (7) 

*  PURPOSE 

* 


*  (8) 

*  PURPOSE 

★ 

★ 

*  (9) 

*  PURPOSE 

* 

★ 

★ 

*  (10) 

*  PURPOSE 

* 

★ 

*  (11) 

*  PURPOSE 

★ 

* 

★ 

*  (12) 

*  PURPOSE 

★ 

* 

*  (13) 

*  PURPOSE 

* 
it 

*  (14) 

*  PURPOSE 

* 

* 

*  (15) 

*  PURPOSE 

* 

*  (16) 

*  PURPOSE 

★ 

*  (17) 

*  PURPOSE 

* 

*  (18) 

*  PURPOSE 

* 

*  (19) 

*  PURPOSE 

* 

★ 

*  (20) 

*  PURPOSE 

* 


*  (21) 

*  PURPOSE 

★ 

■k 

*  (22) 

*  PURPOSE 


-  TO  RETRIEVE  A  RECORD  FROM  A  BTRIEVE  EILE  THAT  FOLLOWS  * 

THE  "CURRENT  RECORD"  * 

★ 

-  GET  PREVIOUS  * 

-  TO  RETRIEVE  A  RECORD  FROM  A  BTRIEVE  FILE  THAT  PRECEDES  * 

THE  "CURRENT  RECORD"  * 

* 

-  GET  GREATER  * 

-  TO  RETRIEVE  A  RECORD  FROM  A  BTRIEVE  FILE  CORRESPONDING  * 

TO  THE  KEY  VALUE  THAT  IS  GREATER  THAN  A  SPECIFIC  KEY  VALUE  * 

k 

-  GET  GREATER  OR  EQUAL  * 

-  TO  RETRIEVE  A  RECORD  FROM  A  BTRIEVE  FILE  CORRESPONDING  * 

TO  THE  KEY  VALUE  THAT  IS  GREATER  OR  EQUAL  TO  A  SPECIFIC  * 

KEY  VALUE  * 

★ 

-  GET  LESS  THAN  * 

-  TO  RETRIEVE  A  RECORD  FROM  A  BTRIEVE  FILE  CORRESPONDING  * 

TO  THE  KEY  VALUE  WHICH  IS  LESS  THAN  A  SPECIFIC  KEY  VALUE  * 

★ 

-  GET  LESS  THAN  OR  EQUAL  * 

-  TO  RETRIEVE  A  RECORD  FROM  A  BTRIEVE  FILE  CORRESPONDING  * 

TO  THE  KEY  VALUE  WHICH  IS  LESS  THAN  OR  EQUAL  TO  A  SPECIFIC  * 

KEY  VALUE  * 

★ 

-  GET  LOWEST  * 

-  TO  RET’RTEVE  A  RECORD  FROM  A  BTRIEVE  FILE  CORRESPONDING  * 

TO  THE  LOWEST  KEY  VALUE  FOR  A  SPECIFIED  ACCESS  PATH.  * 

* 

-  GET  HIGHEST  * 

-  TO  RETRIEVE  A  RECORD  FROM  A  BTRIEVE  FILL  CORRESPONDING  * 

TO  THE  HIGHEST  KEY  VALUE  FOR  A  SPECIFIED  ACCESS  PATH.  * 

* 

-  CREATE  * 

-  TO  CREATE  A  BTRIEVE  FILE  WITH  THE  SPECIFIED  SET  OF  * 

CHARACTERISTICS  * 

* 

-  STAT  * 

-  TO  RETRIEVE  A  SPECIFIED  FILE'S  CHARACTERISTICS  * 

* 

-  EXTEND  * 

-  TO  EXTEND  A  BTRIEVE  FILE  TO  A  SECOND  LOGICAL  DISK  DRIVE  * 

* 

-  SET  DIRECTORY  * 

-  TO  SET  THE  CURRENT  DIRECTORY  TO  A  SPECIFIED  VALUE  * 

■* 

-  GET  DIRECTORY  * 

-  TO  RETRIEVE  THE  "CURRENT"  DIRECTORY  * 

★ 

-  BEGIN  TRANSACTION  * 


-  TO  MARK  THE  BEGINNING  OF  A  SET  OF  LOGICALLY  RELATED  BTRIEVE 
OPERATIONS . 

-  END  TRANSACTION 

-  TO  COMPLETE  A  TRANSACTION  AND  COMMIT  THE  OPERATIONS  PERFORMED 
SINCE  THE  TRANSACTION  BEGAN 

-  ABORT  TRANSACTION 

-  TO  REMOVE  ALL  OPERATIONS  PERFORMED  SINCE  BEGINNING  OF 
AN  ACTIVE  TRANSACTION,  AND  TO  TERMINATE  THE  TRA.,SACTION . 

-  GET  POSITION 

-  TO  RETURN  THE  PHYSICAL  POSITION  OF  THE  RECORD  IN  THE  BTRIEVE 
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*  FILE  THAT  HAS  BEEN  ESTABLISHED  AS  THE  "CURRENT  RECORD"  * 

*  * 

*  (23)  -  GET  DIRECT  * 

*  PURPOSE  -  TO  RETRIEVE  THE  DATA  RECORD  POSITIONED  AT  A  SPECIFED  * 

*  ADDRESS  IN  THE  BTRIEVE  FILE.  * 

*  ★ 

'  v24)  -  STEP  DIRECT  * 

*  PURPOSE  -  TO  RETRIEVE  THE  DATA  RECORD  IN  THE  LOCATION  PHYSICALLY  * 

*  FOLLOWING  THE  CURRENT  RECORD  IN  THE  BTRIEVE  FILE.  * 

*  ★ 

*  (25)  -  STOP  * 

*  PURPOSE  -  TO  TERMINATE  THE  RECORD  MANAGER  AND  REMOVE  IT  FROM  MEMORY.  * 


*  BTRIEVE  ERROR  CODES  * 

*  * 

*  (For  detailed  information  see  Btrieve  menu  Appendix  B  ERROR  CONDITIONS)  * 

*  * 

*  A  utility  program  (STS. EXE)  is  available  to  prompt  Btrieve  Error  * 

*  Condition  and  Fortran  Runtime  Error.  * 

*  ★ 


*  01 
*  02 

*  03 

*  04 

*  05 

*  06 

*  07 

*  08 

*  09 

*  10 
*  11 
*  12 

*  13 

*  14 

*  15 

*  16 

*  17 

*  18 

*  19 

*  20 
*  21 
*  22 

*  23 

*  24 

*  25 

*  26 

*  27 

*  28 

*  29 

*  30 

*  31 

*  32 

*  33 

*  34 

*  35 

*  36 

*  37 

*  38 

*  39 

*  40 


INVALID  OPERATION 
I/O  ERROR 
NO  OPEN 
KEY  NOT  FOUND 
DUPLICATES  ERROR 
INVALID  KEY  NUMBER 
DIFFERENT  KEY  NUMBER 
INVALID  POSITIONING 
END  OF  FILE 
MODIFIABLE  ERROR 
INVALID  FILE  NAME 
FILE  NOT  FOUND 
EXTENSION  ERROR 
PRE-OPEN  ERROR 
PRE-IMAGE  ERROR 
EXPANSION  ERROR 
CLOSE  ERROR 
DISK  FULL 

UNRECOVERABLE  ERROR 
RECORD  MANAGER  INACTIVE 
KEY  BUFFER  ERROR 

RECORD  BUFFER  (DATA  BUFFER  NOT  LONG  ENOUGH) 

POSITION  BLOCK  (MUST  BE  128  BYTES) 

PAGE  SIZE  (MUST  BE  MULTIPLE  OF  512) 

CREATE  I/O  ERROR 

NUMBER  OF  KEYS  (PAGE  SIZE  AND  NUi-I  OF  KEYS  DO  NOT  MATCH) 

KEY  POSITION 

RECORD  LENGTH  (NO  GREATER  THAN  PAGE  SIZE  -  6) 

KEY  LENGTH  (1-255) 

BTRIEVE  FILE  NAME  (INVALID  BTRIEVE  FILE) 

EXTEND  ERROR  (ALREADY  EXTENDED) 

EXTEND  I/O  ERROR 
EXTEND  DRIVE  ERROR 
EXTEND  NAME 
DIRECTORY  ERROR 

TRANSACTON  ERROR  (/T  OPTION  NOT  SPECIFIED  WHEN  REC-MAN  LOADED) 
BEGIN  TRANSACTION  (TRANSACTION  ALREADY  ACTIVE) 

TRANSACTION  CONTROL  FILE 
END /ABORT  ERROR 

TRANSACTION  MAX  FILES  (UP  TO  8  FILES  MAY  BE  UPDATED  DURING  TRANS) 


* 

* 

•k 

•k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 
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*41  TRANSACTION  OPEN/CLOSE  * 

*  42  INCOMPLETE  ACCELERATED  ACCESS  * 

*  43  INVALID  DATA  RECORD  ADDRESS  * 

*  44  NULL  KEY  PATH  * 

*  45  INCONSISTENT  KEY  FLAGS  * 

4o  ACCESS  DENIED  * 

*  47  MAXIMUM  OPEN  FILES  * 

*  48  INVALID  ALTERNATE  SEQUENCE  DEFINITION  * 

*49  KEY  TYPE  ERROR  * 

*  50  OWNER  ALREADY  SET  * 

*51  INVALID  OWNER  * 

*  52  ERROR  WRITING  CACHE  * 

*  53  INVALID  INTERFACE  * 

*54  VARIABLE  PAGE  UNREADABLE  * 

*  80  CONFLICT  * 

*81  LOCK  FULL  * 

*  82  LOST  POSITION  * 

*  83  READ  OUTSIDE  TRANSACTION  * 

*84  RECORD  IN  USE  * 

*  85  FILE  IN  USE  * 

*86  FILE  FULL  * 

*  87  HANDLE  FULL  * 

*88  MODE  ERROR  * 

«  89  NAME  ERROR  * 

*  90  DEVICE  FULL  * 

*  91  SERVER  ERROR  * 

*  92  TRANSACTION  FULL  * 

*  99  DEMO  ERROR  * 

*  ★ 
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5 


STANDARD  COMMON  BLOCKS 


The  following  is  an  alphabetical  list  of  the  standard  common  blocks 
cind  a  short  description  of  each  block. 


FILE  NAME:  AMSCOD.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  AMSCOD . INC 
NUMBER  OF  KEYS :  2 

RECORD  SIZE  :  52 
PAGE  SIZE  :  512 
RECORD  NAME  :  AMSREC 


****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH 

★*★*★**★  ***★★* 


DUP  MOD  TYPE 


0  AMSKEY  1  2  N  N  S 

1  AMSCOD  3  10  N  Y  S 


*****  RECOFID  INFORMATION  ***** 

FIELD  TYPE  LENGTH  POSITION 

NAME  (BYTES) 

it  ic  -k  -k  it  k  it  it  -k  k  it  kkkitkitkitit 


DESCRIPTION 

*★*★■*★★★**** 


AMSKEY 

AMSCOD 

AMSDSC 


S  2 
S  10 
S  40 


1  AMS  ID 

3  AMS  CODE 

13  AMS  DESCRIPTION 


FILE  NAME:  AMSDSC. XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  AMSDSC . INC 
NUMBER  OF  KEYS:  2 
RECORD  SIZE  :  50 
PAGE  SIZE  :  512 
RECORD  NAME  :  AMSRC 

****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH  DUP  MOD  TYPE 
*****  *****  ********  ******  ***  ***  **** 

0  AMSID  1  10  N  Y  S 

*****  RECORD  INFORMATION  ***** 


FIELD 

NAME 

TYPE 

LENGTH 

(BYTES) 

POSITION 

DESCRIPTION 

★  *  ★  ★  ★ 

k  k  k  k 

k  k  k  k  k  k  k 

kkkkkkkkk 

AMSID 

s 

10 

1 

AMS  CODE 

AMSDSC 

s 

40 

11 

AMS  DESCRIPTION 
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FILE  NAME;  AMSF4C.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  AMSF4C.INC 
NUMBER  OF  KEYS:  2 
RECORD  ^IZE  :  18 
PAGE  SIZE  :  512 
RECORD  NAME  :  F4CREC 

****  KEY  INFORMATION  **** 


KEYNC 

FIELD 

POSITION 

LENGTH 

DUP 

MOD 

TYPE 

★  *  *  ★  ★ 

*  ★  ★  ★  ★ 

★★**★★*★ 

•k  ic  Ic 

★  ★  ★ 

★  *  ★  ★ 

0 

F4CCOD 

1 

7 

N 

N 

S 

1 

AMSEQV 

9 

10 

Y 

Y 

S 

*****  RECORD 

INFORMATION  ***** 

FIELD 

TYPE  LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

★  ★  ★  ★  ★ 

★★★★  ★★★★★★★ 

F4CCOD 

S  7 

1 

F4C 

CODE 

AMSEQV 

S  1C 

9 

AMS 

NUMBER 

FILE  NAME:  APRCOD . XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  APRCOD . INC 
NUMBER  OF  KEYS:  2 
RECORD  SIZE  :  52 
PAGE  SIZE  :  512 
RECORD  NAME  :  APRREC 

****  KEY  INFORMATION  **** 


KEYNO 

FIELD 

POSITION 

LENGTH 

DUP 

MOD  TYPE 

★  *  ★  ★  ★ 

***** 

******** 

****** 

*** 

*  *  *  *  *  *  * 

0 

APRKEY 

1 

2 

N 

Y  S 

1 

APRCOD 

3 

10 

N 

Y  S 

*  >  *  ★  *  ] 

RECORD 

INFORMATION  ***** 

FIELD 

TYPE  LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

★  ★  ★  ★  ★ 

****  ******* 

********* 

************ 

APRKEY 

S  2 

1 

APPROPRIATION  ID 

APRCOD 

S  10 

3 

APP.  CODE 

APRDSC 

S  40 

13 

APP.  DESCRIPTION 
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FILE  NAME:  AREA_TAB.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 

NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  34 
PAGE  SIZE  :  512 
RECORD  NAME  :  ARDAT 

****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH  DUP  MOD  TYPE 
***★★  ★*★*★★★*  *★*  *** 

0  CODE  1  2  N  Y  S 

*****  RECORD  INFORMATION  ***** 

FIELD  TYPE  LENGTH  POSITION  DESCRIPTION 

NAME  (BYTES) 

*****  ****  *******  *********  ************ 

CODE  S  2  1  AREA  ID 

DEF  S  30  3  AREA  DESCRIPTION 


FILE  NAME:  BT-PASS.DAT 
FILE  TYPE:  TEXT 
NUMBER  OF  LINES:  1 

****  FILE  INFORMATION  **** 

LINE  FORMAT  FIELDS 

*****  **********  ********** 

1'  A4  TTGG 

*****  FIELD  INFORMATION  ***** 

FIELD  TYPE  LENGTH  DESCRIPTION 

NAME  (BYTES) 

*****  ****  *******  ************ 

TTGG  S  4  BASIC  TASK  SUMMARY  FILE  NAME  SPECIFIER 

****  NOTES  **** 

THIS  VARIABLE  REPLACES  POSITIONS  5  to  8  IN  THE  FILE  NAME  ' BTSMttgg . XDB' 


FILE  NAME:  CLASLST.DAT 
FILE  TYPE:  TEXT 
NUMBER  OF  KEYS:  1 
NUMBER  OF  LINES:  1 

****  FILE  INFORMATION  **** 

LINE  FORMAT  FIELDS 

*****  **********  ********** 

1  I2,A30  INDEX, DESCR 

*****  field  information  ***** 

FIELD  TYPE  LENGTH  DESCRIPTION 

NAME  (BYTES) 

*****  ****  *******  ************ 

INDEX  S  2  CLASSIFICATION  ID  **  KEY  ** 

DESCR  S  3C  CLASSIFICATION  DESCRIPTION 
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FILE  NAME:  DES-BTSM.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 
NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  34 
PAGE  SIZE  :  512 
RECORD  NAME  :  DESDAT 


****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH  DUP  MOD  TYPE 


0 

KEY 

1  4  Y 

N  S 

*  ★  ★  ★  ★ 

RECORD  INFORMATION  ***** 

FIELD 

TYPE 

LENGTH  POSITION 

DESCRIPTION 

NAME 

(BYTES) 

★  ★  ★  ★  ★ 

*  ★  *  ★ 

★★★★★★★ 

***★*★★*★*★★ 

TREEID 

S 

2  1 

TREE  TABLE  ID 

GRPID 

S 

2  3 

BASIC  TASK  TABLE  SUMMARY 

ID 

DESC 

s 

30  5 

BASIC  TASK  SUMMARY 

TABLE 

NAME 

****  NOTES  **** 

THE  FIELDS  'TREEID' 

AND  'GRPID'  ARE 

COMBINED  TO  FORM  THE 

KEY  FIELD 

FILE  NAME:  DES-TASK.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 
NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  34 
PAGE  SIZE  :  512 
RECORD  NAME  :  DESDAT 


****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH 


DUP  MOD  TYPE 
***  **★  **** 


0  KEY 


1 


4  Y  N  S 


*****  RECORD 
FIELD 
NAME 
*  *  ★  ★  ★ 


INFORMATION  ***** 

TYPE  LENGTH  POSITION 
(BYTES) 

★★★★★★★ 


DESCRIPTION 

It-k-k-kide-kifkifkif 


TREEID 
GRP  ID 
DESC 


S  2 
S  2 
S  30 


1  TREE  TABLE  ID 

3  BASIC  TASK  TABLE  ID 

5  BASIC  TASK  TABLE  NAME 


****  NOTES  **** 

THE  FIELDS  'TREEID'  AND  'GRPID'  ARE  COMBINED  TO  FORM  THE  KEY  FIELD. 


56 


FILE  NAME:  DES-TRWD.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 
NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  34 
PAGE  SIZE  :  512 
RECORD  NAME  :  DESDAT 


****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH 
★★★★★  ★★★★★  **★★★★★★  ★★★★*★ 


DUP  MOD  TYPE 
★★★  ★★★★ 


0  KEY 


Y  N  S 


*****  RECORD 
FIELD 
NAME 
***** 


INFORMATION  ***** 

TYPE  LENGTH  POSITION 
(B'YTES) 

**★*  *******  ********* 


DESCRIPTION 

************ 


TREEID 
GRP  ID 
DESC 


S  2 
S  2 
S  30 


1  TREE  TABLE  ID 

3  BASIC  TASK  TABLE  ID 

5  TREE  WIDE  TABLE  NAME 


****  NOTES  **** 

THE  FIELDS  'TREEID'  AND  'GRPID'  ARE  COMBINED  TO  FORM  THE  KEY  FIELD 


FILE  NAME:  EQC-TAB.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  EQCREC.INC 
NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  50 
PAGE  SIZE  :  512 
RECORD  NAME  :  EQCREC 


****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH 
*****  *****  ********  ****** 


DUP  MOD  TYPE 
***  ***  **** 


0  EQCCDE  1 


2  N  N  S 


***** 

FIELD 

NAME 

***** 


RECORD  INFORMATION  ***** 

TYPE  LENGTH  POSITION 
(BYTES) 


****  *******  ********* 


DESCRIPTION 

************ 


EQCCDE 

EQCDES 

EQCCOST 


S  2 
S  40 
R  4 


1  EQUIPMENT  ID 

3  EQUIPMENT  DESCRIPTION 

43  DOLLERS  PER  HOUR 
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FILE  NAME:  F4C-YEAR.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  FYREC . INC 
NUMBER  OF  KEY?:  1 
RECORD  SIZE  :  34 
PAGE  SIZE  :  512 
RECORD  NAME  :  FXREC 


****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH 

★★★★*  ★★★*★*★★  ★★★★★★ 


DUP  MOD  TYPE 
★★★  *★*  *★★★ 


0  FXF4CB 


7  Y  N  S 


*****  RECORD  INFORMATION  ***** 


FIELD 

TYPE 

LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

★  *  *  ★  * 

★  *  ★  * 

****★★★ 

ifkiciticiriric'kiticii 

FXF4CB 

S 

7 

1 

BEGINNING  F4C  CODE 

FXF4CE 

S 

7 

9 

ENDING  F4C  CODE 

FXTEID 

s 

2 

17 

TREE  ID  TABLE 

FXBTID 

s 

2 

19 

PERM.  UNIT  COST  ID  TABLE 

FXSMID 

s 

2 

21 

SUMMARY  ID  TABLE 

FXPTID 

s 

2 

23 

TEMP.  UNIT  COST  ID  TABLE 

FXUNID 

s 

2 

25 

TOTAL  UNIT  COST  ID  TABLE 

FXBYER 

s 

4 

27 

BEGINNING  YEAR 

FXEYER 

s 

4 

31 

ENDING  YEAR 

FILE  NAME:  FACTAB.DAT 

FILE  TYPE:  TEXT 

NUMBER  OF  LINES:  1 

FORMAT  USED  :  A80 

*****  RECORD  INFORMATION  ***** 

FIELD 

TYPE 

LENGTH 

POSITION 

DESCRIPTION 

NAME 
★  ★  ★  ★  ★ 

★  ★  ★  ★ 

(BYTES) 

FGID 

S 

9 

1 

FACILITY  ID 

FGSUBI 

S 

2 

10 

SUBINSTALLATION  ID 

FGAREA 

s 

2 

12 

AREA  ID 

FGDESC 

s 

30 

14 

FACILITY  DESCRIPTION 

FGF4C 

s 

7 

29 

F4C  CODE 

FGNUM 

I 

2 

36 

NUMBER  OF  FACILITIES 

FGZONE 

I 

2 

39 

TRAVEL  ZONE 

FGMTH 

I 

2 

41 

WORK  PERFORMANCE  METHOD 

FGSCM 

I 

2 

43 

SPECIAL  CONDITION  MULTIPLIER  ID 

FGCHNG 

s 

8 

45 

LAST  CHANGED  DATE 

FGLCAL 

s 

8 

53 

LAST  CALCULATION  DATE 

FGFUND 

s 

10 

61 

FACILITY  FUNDING  PROFILE 

FGCAL 

I 

2 

63 

CALCULATION  MODELING  ID 

FGSQFT 

I 

4 

64 

FLOOR  AREA  (SQ  FT) 

FGCYR 

I 

2 

73 

CONSTRUCTION  YEAR 

FGSDSP 

s 

8 

77 

SCHEDULED  DISPOSAL  DATE 

****  NOTES  **** 
USED  TO  BUILD  THE 

'  FACILITY 

.XDB'  FILE 

IN  BATCH  MODE. 
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FILE  NAME:  FACILITY. XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  FAREC . INC 
NUMBER  OF  KEYS;  3 


RECORD 

SIZE  : 

120 

PAGE  SIZE  : 

1024 

RECORD 

NAME  : 

FGREC 

****  KEY  INFORMATION  **** 

KEYNO 

FIELD 

POSITION 

LENGTH 

DUP 

MOD 

TYPE 

★  *  ★  ★  ★ 

★  ★  ★  *  ★ 

it  it  it  it  it  it 

★  ★  ★ 

*  ★  ★ 

★  ★  ★  ★ 

0 

FGID 

1 

9 

N 

N 

S 

1 

FGXSEQ 

11 

4 

N 

N 

S 

2 

FGF4C 

49 

7 

Y 

Y 

s 

★  *  ★  ★  * 

RECORD 

INFORMATION  ***** 

FIELD 

TYPE  LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

•k  it  -k  it  it  it  it  it  -k  it  k 

itkkiticititicir 

FGID 

S 

9 

1 

FACILITY  ID 

FGXSEQ 

S 

4 

11 

FACILITY  SEQUENCE  NUMBER 

FGDESC 

S 

30 

15 

FACILITY  DESCRIPTION 

FGStIBI 

S 

2 

45 

SUBINSTALLATION  ID 

FGAREA 

S 

2 

47 

AREA  ID 

FGF4C 

S 

7 

49 

F4C  CODE 

FGNUM 

I 

2 

57 

NUMBER  OF  FACILITIES 

FGZONE 

I 

2 

59 

TRAVEL  ZONE 

FGSQFT 

I 

4 

61 

FLOOR  AREA  (SQ  FT) 

FGCYR 

I 

2 

65 

CONSTRUCTION  YEAR 

FGSDSP 

S 

8 

67 

SCHEDUALED  DISPOSAL  DATE 

FGFUND 

s 

2 

75 

FACILITY  FUNDING  PROFILE 

MOD SYS 

s 

1 

77 

COMPONENTS  ENTERED 

BFAPCT 

I 

2 

79 

PERCENTAGE  OF  BASE  FACILITY 

FGSCM 

I 

2 

85 

SPECIAL  CONDITION  MULTIPLIER  ID 

FGMTH 

I 

2 

87 

WORK  PERFORMANCE  METHOD 

FGCAL 

I 

2 

89 

CALCULATION  MODELING  ID 

FGCHNG 

s 

8 

91 

LAST  CHANGED  DATE 

FGLCAL 

s 

8 

99 

LAST  CALCULATION  DATE 
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FILE  NAME:  FFPROF.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  FFPROF.INC 
NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  90 
PAGE  SIZE  :  512 
RECORD  NAME  :  FFREC 

****  KEY  INFORMATION  **** 


KEYNO 

FIELD 

POSITION 

LENGTH 

DUP 

MOD  TYPE 

*  ★  ★  *  ★ 

★  ★  ★  ★  ★ 

*★*★★*★★ 

★  ★  ★ 

*  **  *  *  *  * 

0 

FFKEY 

1 

2 

N 

N  S 

*  ★  ★  ★  ★ 

RECORD 

INFORMATION  ***** 

FIELD 

TYPE 

LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

*  *  ★  ★  * 

★  ★  *  * 

FFKEY 

S 

2 

1 

FACILITY  FUNDING  PROFILE  ID 

FFDSCR 

S 

40 

3 

PROFILE  DESCRIPTION 

FFLAP 

s 

(5)2 

43 

IN-HOUSE  LABOR  APPROPRIATION  ID 

FFLPR 

I 

(5)2 

53 

IN-HOUSE  LABOR  PERCENTAGE 

FFEAP 

s 

(5)2 

63 

IN-HOUSE  EQUIPMENT  APP .  ID 

FFEPR 

I 

(5)2 

73 

IN-HOUSE  EQUIPMENT  PERCENTAGE 

FFLNO 

I 

4 

83 

NUMBER  OF  LABOR  ACCOUNTS 

FFENO 

I 

4 

87 

NUMBER  OF  EQUIPMENT  ACCOUNTS 

FILE  NAME:  INSTINFO.DAT 
FILE  TYPE:  TEXT 
NUMBER  OF  LINES:  6 

****  FILE  INFORMATION  **** 


LINE 

FORMAT 

FIELDS 

*  *  *  ★  ★ 

★*★★*★**★★★ 

1 

A30 

INSTNAM 

2 

IX, A4, 1X,A4 

BEGYR, ENDYR 

3 

3F5.2 

MATADJ, MATTAF, RMFTAF 

4 

A2 

ORGID 

5 

A2 

MAXLIN 

6 

A1 

VDRIVE 

★  ★  ★  ★  ★ 

FIELD  INFORMATION  ***** 

FIELD 

TYPE 

LENGTH  DESCRIPTION 

NAME 
★  ★  ★  ★  ★ 

★  ★  ★  ★ 

(BYTES) 

INSTNAM 

S 

30 

INSTALLATION  NAME 

BEGYR 

S 

4 

BEGINNING  REPORT  YEAR 

ENDYR 

S 

4 

ENDING  REPORT  YEAR 

MATADJ 

R 

4 

MATERIAL  LOCATION  ADJUSTMENT  FACTOR 

MATTAF 

R 

4 

MATERIAL  TIME  ADJUSTMENT  FACTOR 

RMFTAF 

R 

4 

RMF  TIME  ADJUSTMENT  FACTOR 

ORGID 

S 

2 

ORGANIZATION  ID 

MAXLIN 

S 

2 

MAXIMUM  NUMBER  OF  LINES  PER  PAGE 

VDRIVE 

S 

1 

DRIVE  DESIGNATION  OF  VIRTUAL  DISK,  C=NONE 
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FILE  NAME:  ORGFGC . XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 
NUMBER  OF  KEYS:  2 
RECORD  SIZE  :  52 
PAGE  SIZE  :  512 
RECORD  NAME  :  ORGREC 


****  KEY  INFORMATION  **** 


KEYNO 

FIELD 

POSITION 

LENGTH 

DUP 

MOD 

TYPE 

★  ★  ★  ★  ★ 

★  *  *  *  * 

★  *  ★ 

ifkic 

*  ★  *  ★ 

0 

ORGKEY 

1 

4 

N 

N 

S 

1 

MACOMID 

43 

2 

Y 

Y 

S 

*****  record  information  ***** 

FIELD  TYPE  LENGTH  POSITION 

NAME  (BYTES) 


★  ★  ★  *  ★ 


★★★★  ★★★★★★*  ★★**★★★★* 


DESCRIPTION 

ifkitititieirifitic-kit 


ORGKEY 

ORGCDE 

INSTID 

ORGDESC 

MACOMID 

RELCDE 

SUBCDE 


s 

4 

1 

ORGAlilZATION  ID 

s 

2 

5 

ORGANIZATION  CODE 

s 

2 

7 

INSTALLATION  ID 

s 

30 

13 

ORG.  DESCRIPTION 

s 

2 

43 

MACOM  ID 

s 

6 

45 

RELATION  CODE 

s 

2 

51 

SUB-INSTALLATION 

FILE  NAME:  PMCOMP . XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  ***  NONE  *** 
NUMBER  OF  KEYS:  3 
RECORD  SIZE  :  64 
PAGE  SIZE  :  512 
RECORD  NAME  :  COMPDT 

****  KEY  INFORMATION  **** 


KEYNO 

FIELD 

POSITION 

LENGTH 

DUP 

MOD  TYPE 

■k  it  it  -k  it 

k  k  k  k  k 

★**★★★*★ 

k  k  k  k  k  k 

*** 

***  **** 

0 

STF4C 

1 

8 

Y 

Y  S 

1 

CASCES 

17 

8 

y 

Y  S 

2 

IFSNUM 

25 

8 

Y 

Y  S 

*****  record 

INFORMA il ON  * 

★  ★  ★  * 

FIELD 

TYPE 

LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

k  k  k  it  k 

★  ★  ★  ★ 

★★★★★★★ 

kkkkkkkkkkkk 

STF4C 

S 

8 

1 

STARTING  F4C  CODE 

ENDF4C 

S 

8 

9 

ENDING  F4C  CODE 

CASCES 

s 

8 

17 

TASK/COMPONENT  ID 

IFSNUM 

s 

8 

25 

IFS  NUMBER 

PMNUM 

s 

2 

33 

NUMBER  OF  THE  CURRENT 

PREDICTION  MODEL 

LCALDTE 

s 

8 

35 

LAST  CALCULATION  DATE 

LMRGDTE 

s 

8 

43 

LAST  MERGE  DATE 

TOTPM 

s 

2 

51 

TOTAL  NUMBER  OF  ALLOWABLE  PRED.  MODELS 

ALLOWPM 

s 

(6)2 

53 

LIST  OF  THE  ALLOWABLE 

PRED.  MODELS 
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FILE  NAME;  PMDEF.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 

NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  42 
PAGE  SIZE  :  512 
RECORD  NAME  :  PMDDAT 

****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH  DUP  MOD  TYPE 
*****  *****  ********  ******  **★  ***  **** 

0  PMNUM  1  2  N  N  S 

*****  RECORD  INFORMATION  ***** 

FIELD  TYPE  LENGTH  POSITION  DESCRIPTION 

NAME  (BYTES) 

*****  ****  *******  *********  ************ 

PMID  S  2  1  PREDICTION  MODEL  ID 

PMDEF  S  40  3  PREDICTION  MODEL  DEFINITION 


FILE  NAME:  PMF4C.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 
NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  48 
PAGE  SIZE  :  512 
RECORD  NAME  :  F4CDAT 


****  KEY  INFORMATION  **** 

KEYNO  FIELD 

POSITION 

LENGTH 

DUP 

MOD  TYPE 

*****  ***** 

..  «  *  *  ■ 

****** 

*  *  * 

*  *  *  *  *  *  * 

0  STF4C 

1 

8 

N 

Y  S 

*****  RECORD 

INFORMATION  ***** 

FIELD 

TYPE 

LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

***** 

*  *  *  * 

******* 

********* 

************ 

STF4C 

S 

8 

1 

STARTING  F4C  CODE 

ENDF4C 

S 

8 

9 

ENDING  F4C  CODE 

PMNUM 

S 

2 

17 

NUMBER  OF  THE  CURRENT  PREDICTION  MODEL 

LCALDTE 

S 

8 

19 

LAST  CALCULATION  DATE 

LMGRDTE 

s 

8 

27 

LAST  MERGE  DATE 

TOTPM 

s 

2 

35 

TOTAL  NUMBER  OF  ALLOWABLE  PRED.  MODELS 

ALLOWPM 

s 

2  (6) 

37 

LIST  OF  THE  ALLOWBLE  PRED.  MODELS 

FILE  NAME:  RMF-FACT . XDB 
FILE  TYPE;  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 
NUMBER  OF  KEYS;  1 
RECORD  SIZE  :  336 
PAGE  SIZE  :  512 
RECORD  NAME  ;  RMFREC 


****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH 


DUP  MOD  TYPE 
★★★  ★★★★ 


0  STAMS 


7  N  Y  S 


*****  RECORD 
FIELD 
NAME 
★  ★  ★  ★  * 


INFORMATION  ***** 

TYPE  LENGTH  POSITION 
(BYTES) 

★★★★ 


DESCRIPTION 


STAMS 
END AMS 
RMCOST 


S  7  1 

S  7  9 

R  <80)4  17 


STARTING  AMS  CODE 
ENDING  AMS  CODE 

ARRAY  OF  COST  FACTORS  (80  YEARS) 


FILE  NAME:  RSMTTOTL . XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  RSREC . INC 
NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  340 
PAGE  SIZE  :  1024 
RECORD  NAME  :  RSREC 


****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITtO*’  LENGTH 
*★*'*»*  ***★★  ★★★★★★*★  ****** 


DUP  MOD  TYPE 

***  ***  **** 


0  RSRTSK  1 


7  N  N  S 


*****  record  INFORMATION  ***** 


FIELD 

TYPE 

LENGTH 

POSITION 

NAME 

(BYTES) 

***** 

*  *  *  * 

******* 

******** 

RSRTSK 

S 

8 

1 

RSRTRD 

I 

2 

9 

RSRWPM 

I 

2 

11 

RSRBFY 

I 

2 

13 

RSRNFY 

I 

2 

15 

RSROCC 

R 

(10)  4 

17 

RSRTOT 

R 

(10)4 

57 

RSRHRS 

R 

(3,10) 

97 

RSRDLR 

R 

(3,10) 

217 

****  NOTES  **** 

BOTH  TWO  DIMENTIONAL  ARRAYS  (RSRHRS 

(1.1)  =  LABOR 

(2.1)  =  EQUIPMENT 

(3.1)  =  MATERIALS 


DESCRIPTION 

************ 

COMPONENT  ID 
TRADE  INDEX 

WORK  PERFORMANCE  METHOD 
BEGINNING  YEAR 
NUMBER  OF  YEARS 

NUMBER  OF  OCCURRENCES  (10  YEARS) 
TOTAL  COSTS  (10  YEARS) 

ARRAY  OF  HOURS  (10  YEARS) 

ARRAY  OF  COSTS  (10  YEARS) 


&  RSRDLR)  ARE  DIVIDED  AS  FOLLOWS; 
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FILE  NAME:  SCMDEF . XDB 
FILE  TYPE;  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 
NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  32 
PAGE  SIZE  :  512 
RECORD  NAME  ;  SCMDAT 


****  KEY  INFORMATION  **** 

KEYNO 

FIELD 

POSITION  LENGTH 

DUP 

MOD  TYPE 

■k  it  -k  ic  it 

k  k  k  k  k 

★  ★  ★ 

*  ★  ★  k  k  k  k 

0 

SCMID 

1  2 

N 

Y  S 

★  *  ★  ★  ★ 

RECORD 

INFORMATION  ***** 

FIELD 

TYPE  LENGTH  POSITION 

DESCRIPTION 

NAME 

(BYTES) 

★  ★  ★  ★  ★ 

★★★★  kkkkkkk  kkkkkkkkk 

★★★★★★★★★★★★ 

SCMID 

S  2 

1 

SPECIAL  CONDITION  MULTIPLIER  ID 

SCMDEF 

S  30 

3 

SCM  DEFINITION 

FILE  NAME:  SCMDEF.DAT 
FILE  TYPE:  TEXT 

FORMAT  USED:  A2,A30 

*****  RECORD  INFORMATION  ***** 

DESCRIPTION 

SPECIAL  CONDITION  MULTIPLIER  ID 
SCM  DEFINITION 


NAME 

^YPE 

LENGTH 

(BYTES) 

POSITION 

k  k  k  k  k 

k  k  k  k 

★★★★★★★ 

kkkkkkkkk 

CODE 

s 

2 

1 

DESC 

s 

30 

3 
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FILE  NAME;  SCMIDxx.DAT 
FILE  TYPE:  TEXT 
NUMBF.P  OF  LINES:  20 


****  FILE  INFORMATION  **** 

LINE  FORMAT  FIELDS 

1  IS  NUMBER  OF  DATA  LINES (19) 

2-20  A7,3X,F10.2  COMPONENT  ID,  CALCULATION  TOTALS 

*****  RECORD  INFORMATION  ***** 

LINE  COMPONENT  CALCULATION 

2  0000000  F(9)*F(13) 

3  0300000  r  (1) *F (2) *F (5) *F(6) *F(7> *F (8) 

4  0400000  F  (1)  *F  (2)  *F  (5)  *F  (6)  *F  (8)  *F  (11) 

5  0410000  F(15) 

6  0415400  F(4) 

7  0415500  F(4) 

8  0415800  F(4) 

9  0415900  F(4) 

10  0415A00  F(4) 

11  0415E00  F(14) 

12  0415F00  F(14) 

13  0415G00  F(14) 

14  0415H00  F(14) 

15  0420000  F(14) 

16  0430000  F(14) 

17  0500000  F(ll) 

18  0530000  F(12) 

19  0540000  F(12) 

20  0600000  F(ll) 


****  notes  **** 

THE  'xx'  IS  REPLACES  BY  THE  SPECIAL  CONDITION  MULTIPLIER  ID 


FILE  NAME;  STDREP.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  ***NONE*** 

NUMBER  OF  KEYS:  1 
RECORD  SIZE  :  4 
PAGE  SIZE  :  512 
RECORD  NAME  :  STDREC 

****  KEY  INFORMATION  **** 

KEYNO  FIELD  POSITION  LENGTH  DUP  MOD  TYPE 

★  ★★★★  ★  ★★★★★★  ★★★  ★★★★ 

0  STDKEY  1  4  N  N  S 

*****  RECORD  INFORMATION  ***** 


FIELD 

NAME 

TYPE 

LENGTH 

(BYTES) 

POSITION 

DESCRIPTION 

★  ★  ★  ★  ★ 

*  *  *  * 

★  ★★★★★★ 

★★★★★★★★★ 

STDAPR 

S 

2 

1 

APPROPRIATION  ID 

STDAMS 

S 

2 

3 

AMS  CODE 

.<***  notes  **** 

THE  FIELDS  ' STDAPR'  AND  ' STD AMS'  ARE  COMBINED  TO  FORM  THE  KEY  FIELD 
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FILE  NAME:  SUB  TAB . XDB 

FILE  TYPE:  BTRIEVE 

INCLUDE  FILE 

***NONE*** 

NUIIBER  OF  KEYS:  1 

RECORD  SIZE 

32 

PAGE  SIZE 

512 

RECORD  NAME 

ARDAT 

****  KEY  INFORMATION  **** 

KEYNO  FIELD 

POSITION  LENGTH  DUP 

MOD  TYPE 

★  ★★★★  ★★★★★ 

★★★★★★★★  ★★★ 

★  ★  ★  ★  *  *  ★ 

0  CODE 

1  2  N 

Y  S 

*****  RECORD 

INFORMATION  ***** 

FIELD 

TYPE  LENGTH  POSITION 

DESCRIPTION 

NAME 

(5YTES) 

★  ★  ★  ★  ★ 

★★★★★★★ 

CODE 

3  2  1 

SUBINSTALLATION 

ID 

DEF 

S  30  3 

SUBINSTALLATION 

DESCRIPTION 

FILE  NAME:  UNCDSC.XDB 

FILE  TYPE:  BTRIEVE 

INCLUDE  FILE 

UNCDSC . INC 

NUMBER  OF  KEYS :  1 

RECORD  SIZE 

52 

PAGE  SIZE 

512 

RECORD  NAME 

UNCRC 

****  KEY  INFORMATION  **** 

KEYNO  FIELD 

POSITION  LENGTH  DUP 

MOD  TYPE 

★  *★★★★★★  ★★★★★★  k  k  It 

*  ★  ★  ★  ★  *  ★ 

0  UNTID 

1  2  N 

Y  S 

*****  RECORD 

INFOPJ^ATION  ***** 

FIELD 

TYPE  LENGTH  POSITION 

DESCRIPTION 

NAME 

(BYTES) 

•k  it  ir  ic  -k 

k  k  k  k  k  k  k  k  k  k  k  kkkkkkkkk 

kkkkkkk-'.kkkk 

UNTID 

S  2  1 

UNIT  COST  TABLE 

ID 

DESP 

S  5n  3 

DESCRIPTION 
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FILE  NAME:  UNC-FACT.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  UXREC.INC 
NUMBER  OF  KEYS:  1 


RECOFID 

SIZE 

360 

PAGE  SIZE 

512 

RECORD 

NAME 

UNCREC 

****  KEY  INFORMATION  **** 

KEYNO 

FIELD 

POSITION 

LENGTH 

DUP 

MOD  TYPE 

*  ★  ★  ★  * 

*  *  * 

*  ★  ★  ★  ★  *  ★ 

0 

UNCID 

1 

2 

N 

Y  S 

*  *  ★  ★  ★ 

RECOFO) 

INFORMATION  * 

*  ★  ★  ★ 

FIELD 

TYPE  LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

★  ★  ★  ★  ★ 

★★*****★★**★ 

UNCID 

S  2 

1 

UNIT  COST  TABLE  ID 

UNCSPM 

R  4 

5 

UNIT  COST  SPECIAL  CONDITION  MULTIPLIER 

UNARM 

R  4 

9 

ANNUAL  RECURRING  MAINTAINANCE  FACTOR 

UNCOST 

R  4(80) 

13 

UNIT  COST  FACTORS  FOR  80  YEARS 

FILE  NAME:  URR.XDB 
FILE  TYPE:  BTRIEVE 
INCLUDE  FILE:  URRINC.INC 
NUMBER  OF  KEYS :  1 

RECORD  SIZE  :  90 
FACE  SIZE  • 

RECORD  NAME  :  URRREC 

*•**  KEY  INFORMATION  **** 


KEYNO 

FIELD 

POSITION 

LENGTH 

DUP 

MOD  TYPE 

•k  it  it  it  •k 

★  ★  ★  *  ★ 

★★★***★★ 

*★★★★★ 

★  ★  ★ 

★  kirkk 

0 

AMSCOD 

1 

10 

N 

Y  S 

★  ★  ★  *  ★ 

RECORD 

INFORMATION  ***** 

FIELD 

TYPE 

LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

★  ★  ★  *  ★ 

★  ★  *  * 

**★★★***★ 

AMSCOD 

S 

10 

1 

AMS  CODE 

URRKSF 

R 

4(10) 

11 

URR  KILO  SQ  FT 

URRKDO 

R 

4(10) 

51 

URR  THOUSAND  DOLLAR 
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BILE  NAME:  URRAPR.XDB 
FILE  T/PE:  BTRIEVE 
INCLUDE  FILE;  NONE 
NUMBER  OF  KEYS;  1 


RECORD 

SIZE  ; 

.50 

PAGE  SIZE  : 

512 

RECORD 

NAME  : 

APRMUL 

****  KEY  INFORMATION  **** 

KEYNO 

FIELD 

POSITION 

LENGTH 

DUP 

MOD  TYPE 

*  ★  ★  ★  ★ 

***** 

******** 

****** 

*  *  * 

★  *  *  *  *  *  * 

0 

AMSCOD 

1 

6 

N 

Y  S 

*****  RECORD 

INFORMATION  ***** 

FIELD 

TYPE  LENGTH 

POSITION 

DESCRIPTION 

NAME 

(BYTES) 

*  *  ★  ★  ★ 

****  ******* 

********* 

************ 

APRID 

S  6 

1 

APPROPRIATION  ID 

MULPLY 

R  4(10) 

7 

MULTIPLIER 
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6  STANDARD  PRCX3BAMMING  PACKAGES 


These  pro-gramming  packages  are  used  by  the  MRPM  system; 

1.  MSFORTRAN  3.31 

2 .  BTRIEVE 

3 .  MS  CHART 

Each  package  has  its  own  printed  documentation. 
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7  REQUIRED  PROGRAMMING  PRACTICES 


To  ensure  system  uniformity,  programmers  should  follow  these 
instructions : 

1.  Always  get  source  codes  from  and  return  them  to  the  coordinator; 
do  not  update  the  execution  file  in  the  main  machine.  Only  the 
coordinator  is  allowed  to  write  into  the  main  machine. 

2.  Test  the  program  as  you  work  on  it,  and  make  sure  it  is  100 
percent  error  free.  Write  down  all  testing  procedures  for  future 
reference . 

3.  The  first  line  of  each  screen  should  be  a  header  that  contains 
the  exact  words  of  the  selection  menu. 

4.  Always  show  the  computer  status  on  the  screen:  'COMMAND  MODE', 
'EDIT  MODE', 'ADD  MODE';  this  helps  users  know  where  they  are. 

5.  When  the  user  presses  'F8'  to  delete  records,  always  a<5k  to  make 
sure  the  data  should  be  deleted. 

6.  Use  the  bottom  line  for  standard  functions.  Show  only  functions 
that  can  be  used  in  this  mode. 

7.  On  reports  and  lists  to  the  printer,  be  sure  to  print  the  last 
page. 

8.  Use  the  'F6  BEGIN'  key  to  start  the  processing  on  all  functions. 

9.  Programs  must  return  to  the  previous  screen  after  successful 
execution . 

10.  Use  the  standard  error  message  subroutine  "ERRMSG"  to  handle  all 
the  pop-up  window  style  error  messages. 

11.  Always  make  a  source  code  backup  before  working  on  the  source 
code.  Always  save  the  final  program  on  a  diskette  in  your  diskette  file. 
Write  the  date  on  the  diskette. 

12.  There  is  no  'STOP'  command  in  the  program. 

13.  Increase  labels  in  increments  of  100. 

Figure  1  shows  an  example  of  a  well-documented  program. 
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PROGRAM  RECFACZ 

'  ==>  this  program  recovers  the  general  facility  information 

*  stored  in  FACILITY. XDB  from  subdirectories 
IMPLICIT  INTEGER*2  (A-Z) 

CHARACTER  SDIR*2, ED IR*2 , BUFFER* 30 

INTEGER*2  FILEl (64) ,FILE2 (64) , NSD IR, NED IR, D IR 
INTEGEB*2  CODE, OP 
CHARACTER  KEY *9 

CHARACTER  PATH* 18 , SDRIVE* 1 , NEWD IR *2 

LOGICAL*2  THERE, OPEND,SUCESS 
COMMON  /COLORS/  COLOR 

*  ==>  include  file  for  error  message 
S  INCLUDE: 'BTEROR. INC' 

*  ==>  include  file  for  FACILITY. XDB 
SINCLUDE : ' FAREC . INC' 

'  ==>  include  files  for  color  table 
S  INCLUDE : ' COLORl . INC' 

S  INCLUDE : ' COLOR2 . INC' 

ROUTIN  =  'REC-FAC' 

*  ==>  initialize  the  error  message  subroutine 

CALL  ER.RMSG  (-1,  ROUTIN,  '  INITAL' ) 

*  ==>  install  function  keys 

CALL  INFKEY 

*  ==>  Make  sure  Record  Manager  is  loaded 

IF  (BTREEX(O) .NE.O)  THEN 

INFOE (1 )=' Record  Manager  is  not  Loaded' 

CALL  ERRMSG (99, ROUTIN, '  ') 

GOTO  999 
ENDIF 

*  ==>  set  up  for  screen 

100  CALL  SCROLL  ( 00 , 00, 24 , 80,  00 , COLOR (2 ) ) 

CALL  FLINE 

CALL  FKEYS  ( 1 ,  1 ,  1 , 1 ,  1 , 1 ,  1 , 1 , 1 , 2 ) 

CALL  BOX ( 1, 1, 3, 80, 2, COLOR (2) ) 

CALL  30X(4, 1,24, 80,2, COLOR(2) ) 

CALL  WT  (2,25,'  REBUILD  FACILITY. XDB  FROM  SUBS  ',31,C0L0R( 
CALL  WT  (10, 15, 'Starting  Subdirectory  : ' , 23, COLOR (14) ) 

CALL  WT  ( 12 , 1 5, ' Ending  Subdirectory  : ' , 23 , COLOR ( 14 ) ) 

*  ==>  read  screen 
200  CODE  =  5 

CALL  RT  (10,39,SDIR,2,CODE,COLOR(8)  ,COLO'R(15)  ) 

IF  (CODE. EQ. 68)  GOTO  999 
IF  (CODE. EQ. 80. OR. CODE. EQ. 13)  GOTO  300 
GOTO  200 
300  CODE  =  5 

CALL  RT  (12,39,EDIR,2,CODE,COLOR(8) ,COLOR(15) ) 

IF  (CODE. EQ. 68)  GOTO  999 
IF  (CODE. EQ. 64)  GOTO  400 
IF  (CODE. EQ. 72)  GOTO  200 
IF  (CODE. EQ. 13)  THEN 
CALL  FLINE 

CALL  FKEYS  ( 1 , 1 , 1 , 1 , 1 , 2, 1 , 1 , 1 , 2 ) 

ENDIF 
GOTO  300 
400  CONTINUE 

*  =->  create  FACTEMP.XDB  in  current  directory 

CALL  CBFAC (FILEl, SUCESS) 

*  ==>  if  not  created  sucessfully  terminate  the  program 

IF  ( .NOT. SUCESS)  GOTO  999 

*  ==>  open  FACTEMP.XDB  in  current  directory 

CALL  BTREE  (F ILEl , 0 , 0 , ' FACTEMP . XDB' , 9 , FGREC , 120 , STS ) 

IF  (STS. NE.O)  THEN 

INFOE  (1)  =  'ERROR  OPEN' 

CALL  ERRMSG (STS, ROUTIN, ' DF .. 98' ) 

GOTO  999 
ENDIF 


Figure  1.  Example  of  a  well-clocuiaent.ed  program. 
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READ (SDIR, ' (12) ' )  NSDIR 
READ (EDIR, '  (12) ' )  NEDIR 
DIR  =  NSDIR 
500  CONTINUE 

OPEND=. FALSE. 

WRITE (NEWDIR, '  u2.2) ' )  DIR 
CALL  FINDDR (NEWDIR, SDRIVE) 

*  ==>  set  up  filename  for  subdirectory  general  facility  file 

PATH='E :\\01\\FACILITY.XDB'c 
PATHd:  1)=SDRIVE 
PATH (4 : 5) =NEWDIR 

*  ==>  open  FACILITY. XDB  in  subdirectory 

CALL  BTREE  (FILE2, 0, 0, PATH, 18, FGREC, 120, STS) 

IF  (STS.eq.l2)  THEN 

INFOE(l)  =  ' FACILITY. XDB  not  found  in  Subdirectory' 
INFOE (2)  =  PATH 

INFOA(l)  =  'Please  checlc  files  in  Subdirectory' 

CALL  ERRMSG(99,ROUTIN, '  ') 

GOTO  800 
ENDIF 

IF  (STS.NE.O)  THEN 

FILNAM  =  ' FACILITY. XDB' 

INFOE (1)  =  'Error  in  opening  file' 

CALL  ERRMSG(STS, ROUTIN, 'OPEN02' ) 

GOTO  800 
ENDIF 

OPEND=,TRUE. 

»  ==>  write  processing  information  to  screen 
BUFFER  =  'RECOVER  FACILITY  IN  E:\' 

BUFFER (22:22)  =  SDRIVE 

WRITE (BUFFER (25: 26),' (12.2)')  DIR 

CALL  WT  (20, 15,BUFFER,30,COLOR(14) ) 

*  ==>  loop  for  copy  facility  records 

OP  =  12 

600  CONTINUE 

CALL  BTREE  (F ILE2 , OP,  0,  KEY, 9, FGREC, 120, STS) 

IF  (STS.EQ.9)  GOTO  700 
OP  =  6 

WRITE (FGDIR, '  (12.2) ' )  DIR 

CALL  BTREE  (F ILEl , 2 , 0, KEY, 9, FGREC, 120 , STS ) 

IF  (STS.EQ.5)  THEN 

INFOE (1)  =  'Facility  ID  =  ' 

INFOE(l)  (15:23)  =  FGID 

INFOE (2)  =  'Facility  ID  already  exists' 

INFOA(l)  =  'Please  chec)<  facility  ID  in  subdirectory' 
CALL  ERRMSG(99, ROUTIN, '  ') 

GOTO  600 
ENDIF 

IF  (STS.NE.O)  THEN 

INFOE (1)  =  'ERROR  INSERTING  FILE' 

CALL  ERRMSG (STS, ROUTIN, ' D. .HGL' ) 

GOTO  990 
ENDIF 
GOTO  600  , 

700  CONTINUE 

*  ==>  close  FACILITY. XDB  in  subdirectory 

CALL  BTREE  (F ILE2 , 1 , 0, KEY, 9, FGREC, 120 , STS ) 

IF(STS.EQ.O)  OPEND=. FALSE. 

800  CONTINUE 

DIR  =  DIR  +  1 

IF  (DIR. GT. NEDIR)  GOTO  990 
GOTO  500 
990  CONTINUE 


Figure  1.  Cont'd. 
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IF(OPEND)  CALL  BTREE (FILE2, 1, 0, KEY, 9, FGREC, 120, STS) 

CALL  BTREE  (F ILEl , 1 , 0 , KEY, 9, FGREC, 120 , STS ) 

»  ==>  overwrite  FACILITY. XDB 

CALL  COMMAND ('COPY  FACTEMP.XDB  FACILITY. XDB  >NUL'C,ERR) 
CALL  COMMAND {'DEL  FACTEMP.XDB  >NUL'C,ERR) 

999  END 

*  ==>  subroutine  for  creating  general  facility  information 

SUBROUTINE  CRFAC (FILEl, SUCESS) 

IMPLICIT  INTEGER*2  (A-Z) 

INTEGER*2  F ILEl ( 64 ) , MAKE ( 32 ) 

LOGICAL  SUCESS 
S INCLUDE ; ' BTEROR . INC' 

*  ==>  file  information  for  FACILITY. XDB 

DATA  MAKE/ 120, 1024, 3, 5*0, 1,9, 0,5 *0,1 1,4, 2, 5 *0,4 9, 7, 3, 5*0/ 
SUCESS=  .TRUE . 

ROUTIN  =  CRFAC 

CALL  BTREE  (F ILEl , 14 , 0, ' FACTEMP . XDB' , 10 , MAKE, 64 , STS ) 

IF  (STS.NE.O)  THEN 

INFOE (1)  =  'ERROR  IN  CREATE  FILE' 

CALL  ERRMSG(STS, ROUTIN, 'X. .987' ) 

SUCESS=. FALSE. 

ENDIF 
R  E  i  ’J 
END 


Figure  1.  Cont'd. 


8  MANAGEM^T  PROCEDURES 


A  toll-free  800  number  should  be  provided  to  all  users.  This  hotline 
should  be  used  to  report  possible  improvements,  questions,  and  system 
failures.  The  success  of  the  MRPM  system  depends  solely  on  how  well 
system  operators/programmers  respond  to  the  questions  and  problems  that 
users  bring  to  the  telephone  hotline.  The  following  procedure  will 
ensure  that  users  receive  a  fast  response  to  all  problems  and  questions: 

1.  The  hotline  operator  will  note  the  problem  and  take  immediate 
action  to  answer  questions.  The  names  of  the  MRPM  user  and  the  hotline 
operator,  along  with  the  message  and  any  action  taken,  should  be  recorded 
on  a  sequentially  numbered,  three-part  report  log  (Figure  2)  .  When  a 
specific  function  is  being  addressed,  the  function  name  should  also  be 
recorded.  The  log  contains  a  white,  yellow,  and  red  copy  of  the  report. 
The  last  (red)  copy  should  be  entered  into  the  official  logbook 
immediately.  The  white  and  yellow  copies  are  given  to  the  processor. 

2.  The  processor  should  take  action  on  the  problem  as  soon  as 
possible  and  record  any  further  action  taken  on  the  report  log.  The 
processor  keeps  the  yellow  copy  of  the  report  for  a  record,  and  passes 
the  white  copy  to  the  reviewer. 

3.  If  a  system  command  causes  the  question  or  problem,  then  a 
reviewer  should  reassess  the  complete  command  to  ensure  that  the  command 
works  as  intended.  This  second  check  is  for  the  sake  of  quality 
assurance . 

4.  The  problem  log  is  returned  to  the  hotline  operator,  who  will 
call  the  users  to  report  the  action  on  their  specific  problems.  It  is 
important  to  maintain  this  direct  contact  with  the  user,  and  to  keep  an 
informal  relationship  between  the  system  operator  and  the  user.  When  the 
user' s  problem  has  been  resolved,  the  completed  white  form  should  replace 
the  red  action  form  in  the  official  report  log  book. 

5.  At  any  step  in  the  process,  emergencies  should  be  referred  to  the 
supervisor  for  review.  Periodically,  a  supervisor  should  review  the 
accumulation  of  reports  to  prioritize  the  problems  recorded  in  the  log, 
to  specify  action  to  resolve  specific  problems,  and  to  delegate  the 
workload . 

6.  A  regular  newsletter  should  be  mailed  to  each  user,  giving  a 
short  description  of  new  changes  to  the  system  created  in  response  to 
user  requests.  Users  and  their  organizations  should  be  credited  for 
their  suggestions. 
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Maintenance  Resource  Prediction  Model 


Report  Log 


Number : 


Report :  Reporters  Name/Org: _ Tel.  No.:  _ 

Date:  _  Time:  _  Received  by: 

Message:  _ 


Action  taken:  _ 

Related  commands: 

Review;  Reviewed  by; 

Priority:  _ 

Comments ; 


Process:  Processed  by:  _  Completion  date; 

Action  taken:  - _ 


Date : 


Sent  to:  Date  sent: 


Review:  Reviewed  by: 

Comments : 


Date; 


Approval:  _ 

Feedback:  Date  reporter  called: 

Callers  name:  _ 


Figure  2.  MRPM  report  log. 
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9  RESOURCES 


There  are  five  basic  functions  that  must  be  maintained  to  provide 
full-service  support: 

1 .  Supervision 

2 .  Training 

3.  Hotline 

4 .  HQ-IFS  System  Maintenance 

5.  HQ-IFS  Operations. 


Supervision 

The  functions  of  the  supervisor  include  scheduli  ig  training;  review 
and  assignment  of  report  logs;  management  of  all  corrections, 
improvements,  and  problem  identification.  This  function  will  probably 
consume  25  percent  of  a  man-year  at  a  GS-11  level,  at  a  cost  of 
approximately  $12,800  per  year. 


Training 

There  are  three  types  of  training: 

1 .  Self-teaching  using  the  system  manual 

2 .  On-site  training  of  the  user 

3.  Centralized  (group)  training. 

The  self-teach  method  requires  the  user  to  have  access  to  a  resource 
person  to  answer  questions  at  later  stages  of  progress.  This  function 
is  performed  by  the  hotline  operator. 

On-site  training  entails  sending  one  person  to  a  site  for  a  minimum 
of  3  days.  The  user  provides  equipment  and  training  room.  The  cost  for 
each  such  session  would  be: 

GS-11  Trainer  5  days  @  $200/day  $1000 

TOY,  4  days  @$100/day,  air  fare  and  car  1000 

Supplies,  manuals,  etc.  300 

Total  $2300 

This  training  method  is  by  far  the  best  possible  training  situation 
for  both  the  trainer  and  the  students.  Five  classes  per  year  at  $2300 
each  would  total  $11,500. 

Centralized  training  is  the  most  expensive  way  to  perform  training  in 
the  Army.  All  students  must  travel  to  one  central  site.  The  central 
site  must  rent  computer  equipment  to  perform  the  training.  (During  this 
training  each  student  should  have  a  PC  and  no  more  than  two  students 
should  be  assigned  to  one  PC.)  This  equipment  may  not  be  the  same  as 
that  used  by  the  trainees  at  their  installations.  A  central  Army 
training  center  must  be  paid  to  plan  and  conduct  the  training.  Estimated 
costs  will  be: 
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GS-11  Trainer  5  days  @  $200/day  $1000 
TDY,  4  days  @$100/day,  air  fare  and  car  1000 
Supplies,  manual,  etc.  300 
Computer  rental  (if  available)  $100/day  @  5  days  500 
Room  rental  $100/day  @  3  days  300 
Student  TDY,  4  days  @$100/day,  air  fare  and  car  800 


For  a  class  of  20  students  (10  computers)  Total  $27,300 


each 

each 

each 


Hotline 

The  hotline  is  a  telephone  number  used  to  answer  user  questions, 
handle  user  problems,  and  report  suggestions  for  improvement.  This 
number  should  be  given  to  all  users.  The  person  answering  the  hotline 
should  be  able  to  either  answer  all  basic  problems  or  refer  the  request 
to  someone  else  for  action.  This  activity  would  probably  consume  about 
15  percent  of  one  GS-S  or  $8000  per  year. 


PC  System  Maintenance 

One  standard  system  will  be  required  at  an  initial  purchase  cost  of 
$35,000.  Annual  system  hardware  maintenance  costs  would  run  $2000/yr. 
The  U.S.  Army  Construction  Engineering  Research  Laboratory  (USACERL)  will 
transfer  the  system  to  the  U.S.  Army  Engineering  and  Housing  Support 
Center  (USAEHSC)  at  a  cost  of  $20,000.  Two  GS-9  Fortran  programmers  must 
be  trained  on  the  use  of  the  system.  Training  will  take  6  months  at  a 
cost  of  $30,000.  Normal  annual  requirement  will  be  the  equivalent  of  one 
half-time  person  at  a  cost  of  $15,000/yr. 


Newsletter 

A  quarterly  newsletter  should  inform  users  of  updates  and  answers  to 
common  questions.  The  annual  cost  is  estimated  at  $5000. 


Cost  SiJmmazy 

Initial  Costs 


USACERL  transfer  $20K 
Personal  computer  35K 
Fortran  program  (2  @6  mo)  30K 


Total  $85K 


Annual  Costs 


Supervisor  (1/4  time)  $12K 
User  training  (five  classes  onsite)  12K 
Hotline  (15  percent)  8K 
PC  maintenance  2K 
Fortran  programmer  (1/2  time)  15K 
Newsletter  5K 
Basic  supplies  4K 


Total  $58K 
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USACERL  DISTRIBUTION 


Chief  of  Engineers 

ATTN:  CEHEC-IM-LH  (2) 
ATTN:  CEHEC-IM-LP  (2) 
ATTN:  CERD-L 
ATTN:  DAEN-ZCP-B 


CEHSC  22060 

ATTN:  CEHSC-FM-R 


Ft  Belvoir,  VA 

ATTN:  CECC-R  22060 

Defense  Technical  Info.  Center  22304 
ATTN:  DTIC-FAB  (2) 
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